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EDITORIAL 


Tout d’abord, nous avons le regret de vous annoncer que nous n’avons pas de nouvelle machine à 
vous présenter dans ce numéro... Et oui, on commencait à s’y habituer ! En attendant (au moins deux 
où trois ans) que HP décide de sortir de nouvelles machines, il vous faudra vous contenter de celles 
qui existent actuellement ! 


Puisque nous parlons des nouvelles machines, vous devez savoir qu’elles sont disponibles depuis peu 
(aux USA ou chez un distributeur parisien bien connu.…..). Bien sûr certains d’entre nous ont déjà 
commencé à explorer leur possibilités et différences par rapport aux anciens modèles, mais il faudra 
attendre le prochain numéro pour commencer à voir des articles complets à ce sujet. Ceci explique 
peut-être aussi la relative finesse de la rubrique HP48. 


De nombreux utilisateurs de HP48 ont déjà eu le plaisir de recevoir nos fameuses disquettes vertes. 
Maintenant c’est enfin au tour des utilisateurs de HP95 d’avoir la possibilité d'obtenir des 
programmes freeware ou shareware pour leur machine préférée. Pourquoi cela a-t-il été si long ? 
Tout simplement parce que ces disquettes ont été préparées par le club, alors que celles destinées 
aux HP48 nous arrivaient toutes prêtes (merci jkh !). Il nous a donc fallu trier, tester, selectionner et 
compacter plusieurs centaines de programmes de toutes origines afin d’arriver à ces deux premières 
disquettes contenant ce que nous jugions le plus intéressant pour le HP95. Et bien sûr, cela ne s’est 
pas fait en deux jours, surtout que l’on devait entre temps écrire des articles pour le journal... 


Les utilisateurs de HP95 sont bien servis en nouveautés ce mois-ci, car nous nous avons reçu notre 
premier article consacré à une feuille de calcul LOTUS. Nous espérons que cet article vous 
permettra de mieux maitriser cette partie souvent ignorée mais toujours intéressante de la machine, 
et vous inciter à nous montrer vos propres réalisations à ce sujet. Bien sûr, si nous devons continuer à 
passer des feuilles de calcul Lotus, nous pensons qu'il est préférable (dans l'esprit du club) de se 
limiter à celles qui sont optimisées pour l'affichage du HP95, comme celle que nous présentons dans 
ce numéro. N'oubliez pas aussi que d’autres applications internes (Le Solver de l’application CALC 
par exemple) peuvent permettre de créer des petites fonctions qui peuvent intéresser les autres 
adhérents ! 


Derniere nouveauté, vous trouverez à la fin du journal une nouvelle version des programmes 
d’entrées du Coin des Codes pour les HP28 et HP48. Sachez qu'il ne s’agit que d’une nouvelle 
présentation (sans modification majeure des algorithmes) ayant pour but de réduire le nombre de 
pages "constantes" dans le journal. Il n’y a donc pas obligation, pour les personnes ayant déjà une 
version précédente, de retaper une fois de plus ces programmes. 


Nous espérons que vous profiterez des vacances pour prendre le temps de nous présenter vos petits 
trucs ou dernières réalisations sur votre machine préferée. Rapelez vous que si nous avons eu 
quelques retards pour boucler les derniers numéros, c'était souvent que parce qu’il ne nous manquait 
qu'un ou deux articles nous permettant d'obtenir une maquette acceptable. 


En attendant le prochain numéro, ne prenez pas trop de coups de soleil ! 
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BINOME DE NEWTON 
et retour aux sources 


Les objectifs d’une publication comme JPC sont 
léchange d’informations, d'idées et de travaux 
informatiques, mais d’abord pour ces derniers sur 
support papier avant le support magnétique ce qui 
peut donner une valeur pédagogique à ce journal de 
liaison. La rubrique HP-28 a un rôle de premier plan 
à jouer dans ce domaine car le monde facile des 
cartes enfichables est refusé à nos HP-28. 


Durant sa déjà longue vie, JPC a permis à plus d’un 
programmeur débutant de progresser grâce aux 
articles des prédécesseurs. 


La vue d’une nouvelle signature est toujours pour moi 
un réel plaisir. Le travail d’'Edmond Dougados sur les 
binômes de Newton m’a intéressé à plusieurs titres. 
En effet cela confirme le fait que tout le monde 
mutilise pas les programmes universels mais 
volumineux, que des petits programmes spécifiques 
peuvent satisfaire certains, et enfin qu’il y a encore 
des possesseurs de HP-28 qui se lancent dans la 
création. Aussi le but de cet article est d'encourager 
l’auteur à nous concocter d’autres programmes et lui 
apporter l’aide de quelqu'un qui n’a que le mérite 
d’avoir fait ses débuts avant. 


Rappelons le programme DEvi (JPC 87 page 6) se 
rapportant au développement du binôme de Newton 
et que nous allons essayer d'améliorer. 


« 


1FIX+abn a0 
« 


Q ‘POLY.’ STO O ‘bc’ STO -1n 








FOR t t EVAL ’T' STO a1 
IF -1 t == THEN 0 ’T’ STO END a2 
bc ‘’n-T' EVAL DUP ‘bc’ STO a3 
1F T O > THEN * DUP ‘bc’ STO END a4 
T 1+ ’ABX' STO 
IF t1 THEN n / ELSE ABX FACT / END a5 
IF t -1 == THEN 1 ’r' STO a6 
ELSE t EVAL 2 + ’r' STO END 27 
fa*(n-r#1)' EVAL ’b°(r+1-2) EVAL a 8 


* * POLY. SWAP + ‘POLY.’ STO 
NEXT POLY. DUP ‘POLY.’ PURGE 
€ T bc ABX r } PURGE 2 ROLL DROP 2 ROLL DROP à 9 
SWAP DROP 1500 .5 BEEP 


1ère étape : quelques améliorations de forme. 


- ligne 0 : srD 
au lieu de 1 FIX car les coefficients sont entiers. 
- ligne 1 : EVAL non nécessaire car t renvoie 1 réel 
et on ne stocke pas tout de suite f. 
- ligne 2:DUP -1 # * !T' STO 
au lieu de :1F -1 t == THEN O T’ STO END. 
Le résultat est le même. 
-ligne3:benT- 
au lieu de : be ‘n-T' EVAL DUP ‘be’ STO 
Formulation Rpl et non algébrique et on retarde le 
stockage. 
- ligne 4:1F T THEN * END DUP ‘bc’ STO 
au lieu de : 1F T O > THEN * DUP ‘bc’ STO END 
T renvoie 0 ou 1 réel > 0 test possible. 
- ligne 5:1F .. THEN .. ELSE .. END / 
au lieu de:1F .. THEN .. / ELSE .. / END 
-ligneséet7:t 2+’r' ST0 
au lieu de : 
IF t-1== THEN 1 /r' STO ELSE t EVAL 2 + ‘r' 
STO END 
Le résultat est le même. 
-ligne8:'anr-1+* 
au lieu de : ‘a*(n-r+1)’ 
ce qui est moins rapide et plus gourmand en octets. 
#b' r 1-* au lieu de ‘b”(r+1-2)' 
- ligne 9 : swap au lieu de 2 RoLL 





Ces améliorations nous font passer d’un programme 
de 575 octets à 424 octets soit 35% en plus pour la 
version d'Edmond. 


Voici le programme allégé. 


«SD-+-abn 
« O ‘POLY.’ STO 0 ‘bc’ STO -1n 

FOR t t DUP -1 # * ‘T° STO bc nT - 
IF T THEN * END 
DUP ‘bc’ STO T 1 + ‘ABX' STO 
IF t -1 == THEN n ELSE ABX FACT END 
L'ASR re SO lan pe FT EN be Tr LE 
 EVAL * * POLY. SWAP + POLY.’ STO 

NEXT POLY. ‘POLY.’ PURGE € T bc ABX r } PURGE 

SWAP DROP SWAP DROP 1500 .5 BEEP 


2ème étape : remplacement des variables globales par 
des variables locales. 


Cette façon de faire évitera les interférences 
éventuelles avec les variables globales des autres 
programmes et d’avoir à purger ces variables. 


D'autre part nous réduirons les noms à une seule 
lettre par mesure d’économie (si cela est moins 











explicite, le résultat sera une économie toujours 
appréciable pour la mémoire de nos HP-28. 


bc * € 
ABX — M 
POLY. + P 


Jusqu’ici c’est toujours le programme d’Edmond mais 
perdant encore 79 octets pour ne garder que 345 
octets : 


« STD 000ODWP2-+-abnPCMTr 
«-1n 

FOR t 
t DUP -1 # * T' STONT - 
IF T THEN C * END 
DUP ‘C’ STO T 1 + ‘M’ STO 
IF t -1 == THEN n ELSE M FACT END 
Jt1+r STO ‘at nr -”* EVAL a** 
fb' r * EVAL * * P SWAP + 'P' STO 

NEXT P 1500 .5 BEEP 


A la ligne ** une amélioration : 

t 1+ aulieude + 2 + ce qui permet de faire: 
fat nr- aulieude ‘a nr-14+ et 

“br au lieu de ’b'r1- 


ième étape : abandon des variables locales mais 
travail avec la pile. 


Nous abandonnons 7 variables locales et gardons 
seulement c. Le listing est moins explicite mais nous 
gagnons encore 107.5 octets ne gardant que 237.5 
octets et le programme est 3 fois et demi plus rapide 
que l'original. 


« SD O0 -C 
«0-1 3 PICK 

FOR t OVER t DUP 0 > * DUP2 - 
1F OVER THEN C * END 
DUP !C' STO SWAP 
IF t O < THEN DROP OVER ELSE 1 + FACT END 
4 t 1+7 PICK 4 ROLL 3 PICK - * 6 PICK 
RO A #4 

NEXT 4 ROLLD 3 DROPN 1500 .5 BEEP 


4ème étape : on efface tout et on recommence. 


L’algorithme d’Edmond consiste à calculer les 
cocfficients du binôme de Newton en utilisant le 
coefficient précédent. Nous pouvons utiliser la 
fonction coMB puisque chaque coefficient peut se 
calculer par C,P ce qui simplifie beaucoup les choses. 





Encore 123.5 octets en moins pour tomber à 114 
octets et un programme 5 fois plus court mais aussi 
plus de 5 fois plus rapide que l'original. 


« STD 0 0 3 PICK 
FOR t OVER t COMB 5 PICK & PICK t - * 
*ENRt + 
NEXT 4 ROLLD 3 DROPN 1500 .5 BEEP 


sième étape : le luxe 


Puisque notre programme est devenu léger nous 
pourrions lui en demander plus : calculer aussi 
(A-B}. 


C’est ce que fait BINIOU ci-dessous. 
Exemples : 


1ÈTe variable + MAT + niveau 3 
2fME variable 


Le degré du binôme : 3 


: /B! + niveau 2 
+ niveau 1 


BINIOU +  'A”"3+3(A"2*B)+3*(A*B"2)+B"3" 
et avec ‘-8’ 
BINIOU + 'A"3-3(A"2*B)+3*(A*B"2)-B"3" 


Voici le programme final pour HP-28. Avec ses 
commentaires, j'espère qu’il sera utile à quelques uns 
et peut-être permettra d’éclaircir certains points. 


BINIOU 
183.5 octets cksum # DABBh 
Les commentaires partent des exemples: 
(A + B})' ou (A -B)° 
donc au départ : 
niveau 3 : A? 
niveau 2 : ’B’ ou ’-B’ 


niveaul:n 
« STD 1 à 1 pour Le signe 

3 PICK à dupl'ique ’B' ou ’-B* 

1F 1 OBGET € NEG } == à si -B' 

THEN ROT NEG 3 ROLLD à change ‘-B' en ‘B' 
NEG 8 et 1 en -1 pour Le signe 
END SAP à échange n et signe 

0 à initialise polynôme à 0 
0 à 0 départ de boucle 

3 PICK an pour fin boucle 

FOR t & boucle ddt=0àn 

a 


ici nous avons : 
Deere 


à niveau 5 : ’A' 
à niveau 4 : ’B'’ ou ’-B' 
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à niveau 3 : signe 
à niveau 2 n 


à niveau 1 : polynôme 
germes 





OVER t COMB ant - c! 

4 Pick 8 signe 

trs a ct * (signe)! 

6 Pick aa 

4 Pick an 

tie an-+t + sant 

6 PICk as 

E® a st 

# + a "20 +CAï gt) 

+ 8 polynôme + ce terme 
NEXT à tour de boucle suivant 
5 ROLLD 8 polynôme + niveau 5 
4 DROPN 1500 .5 BEEP à drope 4 premiers niveaux 


» 


Pour HP-28 et HP-48... 


Pour terminer voici un résumé des idées exposées 
ci-dessus et qui peuvent aider les débutants qui ont 
quelques difficultés à produire des programmes 


optimisés en encombrement mémoire et vitesse : 


- choisir pour les débuts un problème avec peu de 
paramètres. Le développement du binôme de Newton 
est un bon exemple. 

- rechercher l'algorithme le plus simple en faisant 
appel aux fonctions les plus puissantes de la HP. 

- si le problème est de nature mathématique, traiter 
dans un premier temps la programmation sous forme 
algébrique en suivant la ou les formules. 

- pour débuter faire une programmation facile avec 
des noms de variables évocateurs pour bien suivre le 
déroulement du programme. 

- donner la préférence aux variables locales, qu’il n’est 
pas besoin de purger lorsque le programme s’est 
déroulé, réservant les variables globales pour des 
sauvegardes définitives. 

- avec cette ébauche vérifier le bon fonctionnement 
du programme. 


À partir de maintenant noter lors de l’évolution de la 
programmation : 


- l'encombrement mémoire pour chaque version avec 
8YTES de la HP-48 ou 8YTes pour HP-28 (JPC-85 p9). 
-la vitesse d'exécution avec TIMED pour HP-48 
(JPC-82 page 26) ou TIMED pour HP-28 dans ce 
numéro de JPC. 


Commencer l'optimisation: 
- Supprimer les séquences de programmes dupliqués 


du genre IF THEN toto ELSE ... toto END en 
faisant 1F THEN ... ELSE ... END toto. 





-Si possible éviter les suites de mêmes tests en 
regroupant les différentes clauses à la suite du test : 

IF bibi THEN totoi END ... IF bibi THEN toto2 END 
devrait être IF bibi THEN totol ... toto2 END. 
- Tenir compte des valeurs possibles des variables lors 
des tests : 

IF toto NOT THEN au lieu de IF toto == 0 THEN 

IF toto THEN au lieu de IF toto > O THEN 
si toto ne peut prendre que des valeurs nulles ou 
positives 
- Voir s’il est possible de remplacer des tests par des 
expressions : 

toto DUP -1 0 > * au lieu de: 

IF toto == -1 THEN O ELSE toto END 
si l’on sait que toto renvoie des valeurs > -2 
- Eviter le stockage d’une valeur dans une variable et 
son rappel trop rapproché, utiliser à la place les 
mouvements de la pile. 
- Passer de la programmation type algébrique à celle 
de type Rpl en notant sur une feuille les divers 
mouvements de la pile pour suivre l’évolution du 
programme. 
- Eliminer progressivement les variables locales au 
bénéfice des mouvements de pile: SWAP, ROT etc. 
en ne gardant que les seules variables locales rendant 
la programmation plus efficace que celle des 
mouvements de la pile. 





Toutes ces modifications devraient se traduire par 
moins d’octets occupés et plus de rapidité. 


Ces suggestions ne sont que quelques recettes et ne 
prétendent pas être la solution à tous les problèmes 
d'optimisation dont certains hpistes ont l’art de les 
résoudre. Dans ce domaine il n’est pas interdit qu’un 
lecteur de JPC lance un défi pour réaliser la meilleure 
optimisation d’un petit programme. 


Exemples complémentaires d’optimisation en User 
Rpl: 

- Chronique de notre ami Robert Pulluard tenue dans 
Haute Perfonnance et dans son bulletin 48sxtant dont 
la rubrique Dr. Sexagésimus a un problème est 
réservée aux problèmes d’optimisation. 

- Article du signataire: les différents modes de 
programmation. Le pour et le contre. (JPC 81 p 6). 


En conclusion, nous souhaitons recevoir beaucoup de 
petits programmes comme celui qui a provoqué cet 
article. Que ceux qui n’osent pas se lancer n’hésitent 
plus à nous envoyer leurs travaux: il y aura toujours 
quelqu’un à qui cela profitera. 


Guy Toublanc (276) 











BON TEMPS ET BONS 
PROGRAMMES HP-28S 


Dans l’article de ce même JPC, Binômes de Newton, 
je faisais allusion aux problèmes d’optimisation de 
programmes. Pour tester l'efficacité d’une 
programmation il nous faut deux outils : 


BYTES (/PC 85 page 9) et TIMED que je vous présente. 


Ce dernier est pour HP-28S seulement car faisant 
appel au System Rpl pour des raisons de gain de de 
mémoire. C’est une transposition de ce que j'avais fait 
pour HP-48, aussi je vous renvoie à cette version 
(PC 82 page 26) commentée pour la justification des 
mnémoniques employés. Ce programme donne des 
résultats plus précis et fiables qu’un chronométrage 


avec une montre. 





TIMED 

80.5 octets  cksum # B933h 

Syntaxe : 

niveaux 2 3 .. : les arguments éventuels 

niveau 1 le programme ou son nom 
résultat : le temps d’exécution en secondes 


Voici le fichier source : 


ASSEMBLE 
con(5) #02c67 * DOCOL 
con(5) #075dc * xDUP 
con(5)  #3e7f1 * 2TYPEIDNT 


con(5) #3dc94 BYE 


con(5)  #0af7 * XEORCL 
con(5)  #0a32b * XMEM 
con(5)  #31a84 * MORDSIZE 
con(5)  #115dc * SIXTYFOUR 
con(5)  #316f7 * dostus 
con(5)  #02a96 * DOLIST 
con(5)  #c9d86 * NULLAM 
con(5)  #c9d86 * NULLAM 
con(5)  #02f90 * SEMI 
con(5) #059b5 * BIND 
con(5)  #011ca * CLKTICKS 
con(5)  #3daba * 2PUTLAM 
con(5)  #0a418 # XEVAL 
con(5)  #011ca * CLKTICKS 
con(5) #3d911 * 2GETLAI 
con(5) #31913 EN . 
con(5)  #31e22 + #4 
con(5)  #1a173 * 28192 
con(5)  #11d82 4 











con(5) #02933 * DOREAL 
nibhex 8990000000003210  * .00375 
con(5) #11did + 
con(5) #3d8d7 * 1GETLAM 
con(5) #316f7 * dostus 
con(5) #05973 * ABND 

* 


con(5) #02f90 SEMI 


Vous trouverez la liste des codes dans Le coin des 
codes. 


Bonne optimisation. 


Guy Toublanc (276) 


POINTS D’ENTREES HP28 
ACTE II 


Voici la fin de la liste des points d’entrées équivalents 
entre la HP28 et la HP48. Rapelons qu'ils ne 
concernent que la HP28S version 2BB. 


=xSTOSIGMA EQU #0ABBC * (user RPL) 
=xCLSIGMA EQU #0ABD6 * (user RPL) 
RCLSIGMA EQU #0ABFO * (user RPL) 








=xSIGMA+ EQU #0AC0A * (user RPL) 
=xSIGMA- EQU #0AC38 * (user RPL) 
=XNSIGMA EQU #0AC52 * (user RPL) 
=xCORR EQU #OAC6C * (user RPL) 
=xCOV EQU #0AC86 * (user RPL) 
=xMAXSIGMA  EQU #0ACAO * (user RPL) 





XMEAN EQU #0ACBA * (user RPL) 
=XMINSIGMA  EQU #0ACD4 * (user RPL) 
EQU #0ACEE * (user RPL) 
EQU #0AD08 * (user RPL) 
EQU #0AD22 * (user RPL) 
EQU #0AD3C * (user RPL) 





=XPREDV EQU #0AD56 * (user RPL) 
=xUTPC EQU #0AD7A * (user RPL) 
=xUTPN EQU #0AD9E * (user RPL) 
=xUTPF EQU #0ADC2 * (user RPL) 
=XUTPT EQU #0ADE6 * (user RPL) 
=xSCLSIGMA EQU #0AE0A * (user RPL) 
=XDRWS 1 GMA EQU #0AE24 * (user RPL) 
=XCOLSIGMA EQU #0AE3E * (user RPL) 
=XSINV EQU #0AE62 * (user RPL) 
=XSNEG EQU #0AEF9 * (user RPL) 
=XSCONJ EQU #0AF90 * (user RPL) 
=xSTO+ EQU #08013 * (user RPL) 
=xSTO- EQU #08118 * Çuser RPL) 
=xSTO/ EQU #0B222 * (user RPL) 
=xSTO* EQU #0834F * (user RPL) 
=XEXGET EQU #0B5C6 * (user RPL) 
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=XEXSUB EQU 
=x0BSUB EQU 
=XOBGET EQU 
=xFORM EQU 
=xCOLCT EQU 
=XEXPAN EQU 
=x1SOL EQU 
=XQUAD EQU 
=xSHOW EQU 
ExTAYLR EQU 
=XDER EQU 
=xRCEQ EQU 
=XSTEQ EQU 
=XROOT EQU 
=xINTEGRAL EQU 
=xASR EQU 
=xRL EQU 
=xRLB EQU 
EXRR EQU 
=XRRB EQu 
=xSL EQu 
=XSLB EQU 
EXSR EQU 
EXSRB EQU 
=XR>B EQU 
=xB>R EQU 
=xCONVERT EQU 
=xINDEP EQU 
=xPMIN EQU 
=XPMAX EQU 
=XAXES EQU 
=XCENTR EQU 
=XRES EQU 
=x*H EQU 
=x*N EQU 
=xDRAW EQU 
EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

=CKONOLASTHD EQU 
=CK0 EQU 
K3 EQU 
=CK2NOLASTWD  EQU 
=CK2 EQU 


=CKINOLASTWD  EQU 


#OB5EA 
#0B622 
#08646 
#O0B66A 
#0B6A2 
#O0B6DA 
#08712 
#08736 
#0B75A 
#08788 
#08786 
#0884D 
#08871 
#08888 
#0B8E 1 
#0BB53 
#08877 
#0B898 
#OBBBF 
#OBBE3 
#08C07 
#0BC28 
#0BC4F 
#0BC73 
#0BC97 
#0BCB8 
#O0BCDF 
#0BD21 
#0BD45 
#08D69 
#0BD80 
#08D81 
#0BDD5 
#0BDF9 
#O0BE1D 
#0BE41 
#OBE5B 
#OBE7F 


MO 


* 


MON 


* 


* 


x * 


* 


#OBE99 * 
#OBEB3 * 


#OBECD 
#OBEE7 
#08F01 
#08F18 
#OBF5D 
#08F77 
#08F91 
#0BFB5 


x 


* 


#OBFCF * 


#OBFE9 


#0C1FB 
#0c361 
#OC36A 
#0C380 
#0C3C4 


* 


* 


* 


* 


#OC3CD * 


#OC3E1 


* 


Cuser RPL) 
(user RPL) 
Cuser RPL) 
Cuser RPL) 
Cuser RPL) 
Cuser RPL) 
Cuser RPL) 
Cuser RPL) 
Cuser RPL) 
Cuser RPL) 
(user RPL) 
Cuser RPL) 
(user RPL) 
Cuser RPL) 
Cuser RPL) 
Cuser RPL) 
(user RPL) 
Cuser RPL) 
(user RPL) 
(user RPL) 
Cuser RPL) 
Cuser RPL) 
(user RPL) 
Cuser RPL) 
cuser RPL) 
cuser RPL) 
Cuser RPL) 
Cuser RPL) 
Cuser RPL) 
Cuser RPL) 
Cuser RPL) 
Cuser RPL) 
Cuser RPL) 
(user RPL) 
(user RPL) 
(user RPL) 
Cuser RPL) 
(user RPL) 
Cuser RPL) 
Cuser RPL) 
Cuser RPL) 
Cuser RPL) 
Cuser RPL) 
cuser RPL) 
(user RPL) 
Cuser RPL) 
(user RPL) 
Cuser RPL) 
Cuser RPL) 
Cuser RPL) 


<prog) 
cprimitive) 
(primitive) 
(primitive) 
Cprimitive) 
(primitive) 
(primitive) 





=UNCOERCE 
=COMPEVAL 
ispatch2 
=Dispatch1 
=COERCE 
estUserFlag 
=COERCEFLAG 
=#*OVF 








=x1F 
=XTHEN 





SXALG-> 
SXHHILE 
=XREPEAT 
=xD0 
=xUNTIL 
=XSTART 
=XSTARTVAR 
=XNEXT 
=xSTEP 
=XIFERR 
=XHALT 
=XSILENT' 
=xRPN-> 
=x>>ABND 
axe 

=> 
=XWHILEEND 
=XENDDO 
SXERRTHEN 


=CKOATTNABORT 
=palparse 
=DaDGNTC 
snultrior 








=X1P 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


#OC3EA 
#0C484 
#0C506 
#0C610 
#0C784 
#0C79C 
#OC7AS 
#0C538 
#OC8DC 


MON NN 


* 


#OC9F4 * 


#OCA29 


#0E3E2 
#0E3F8 
#0E459 
#0E479 
#OE4SF 
#0E4D2 
#OE4F2 
#0E535 
#0E555 
#0E568 
#0E5B3 
#0E60F 
#OE73E 
#0E77A 
#O0E842 
#0E862 
#0E87D 
#0E985 
#0E9D0 
#O0E9E6 
#O0EA2D 
HOEAGD 
#OEA9O 


M Re * 


* 


OR * 


* 


* 


* 


#OEAD9 * 
MOEAF7 * 


#OFDFO 
#0FF21 
#10D39 
#11280 
#11298 
#11284 
#112C9 
#112DE 
#1160E 
#117A9 
#11A01 
#11A24 
#11A88 
#VIAEF 
#11897 
#11880 
#11B8C6 
#11BF2 
#11D82 
#12474 


RE 


MO 


* 


* 


x * 


* 


(primitive) 
(primitive) 
(primitive) 
(primitive) 
(primitive) 
cprimitive) 
(primitive) 
(primitive) 
Cprimitive) 
cprimitive) 
(primitive) 


<user RPL) 
(user RPL) 
(user RPL) 
(user RPL) 
(user RPL) 
(user RPL) 
(user RPL) 
Cuser RPL) 
Cuser RPL) 
(user RPL) 
Cuser RPL) 
Cuser RPL) 
(user RPL) 
(user RPL) 
cuser RPL) 
Cuser RPL) 
Cuser RPL) 
Cuser RPL) 
cuser RPL) 
Cuser RPL) 
(user RPL) 
Cuser RPL) 
(user RPL) 


(prog) 
(prog) 
Cprog) 
(primitive) 
(prog) 
(primitive) 
(primitive) 
(real) 
(real) 
(real) 
(assembly) 
(assembly) 
(prog) 
(prog) 
(primitive) 
(prog) 
(primitive) 
(primitive) 
(primitive) 
(primitive) 
(primitive) 
(primitive) 
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SXFACT EQU 
=SYNTAXERR EQU 
=Err jmpC EU 
SSAFEQ EU 
=DPRADIX? EQU 
=DO>STR EQu 
=DODISP EQU 
=DOCHR EQU 
=DOSTR> EU 
=DOBEEP EU 
=setbeep EQU 
=makebeep  EQU 
=nohalt EQU 
=DOLCD> EQU 
=DO>LCD EQU 
=ANDS Eu 
=OR$ EQU 
=XORS Eau 
=bitAND EQU 
=bitoR Eu 
=bitXOR Eu 
=bitNOT EU 
#4 EQU 
24 Eu 
=cknumdsptch1 EQU 
=sscknum2  EQU 
=sncknum2 EQU 
=nscknum2 EQu 
stopê EQU 
=pshtop& Eau 
=psh Eu 
SROTSWAP EQU 
=ROTDROP EQU 
=SWAPDROP  EQU 
UNROLL EQU 
=1GETLAM EQU 
=2GETLAM EQU 
=3GETLAM EQU 
=casedrop EQU 
=caseDROP EQU 
EQU 

EQU 

EQU 

EQU 

EQU 

Eau 

EQU 

STEMPTOP EQU 
=DSKTOP EU 
STEMPENV EQu 
=TOUCHTAB EQU 
=UserFlags EQU 


#125F6 
#183A1 
#1848d 
#1E737 
#1EE18 
#227BD 
#227D8 
#229C3 
#22A22 
#22A45 
#22AA7 
#22AD3 
#22012 
#25133 
#25180 
#28215 
#28229 
#2823D 
#31760 
#31771 
#31782 
#317AA 


#31E22 
#31EC3 
#32B63 
#340A3 
#340BC 
#340D5 
#3AD91 
#3AE39 
#3B4F2 
#3D57F 
#3D589 
#3D61C 
#3D72C 
#3D8D7 
#30911 
#3D938 
#3DC14 
#3DC4A 
#3DC5F 
#3DC85 
#3DC94 
#3DCF9 
#3DD32 
#3E863 
#3F1C6 


#C005A 
#C0064 
#CO06E 
#c0078 
#CO10F 


HOMO EN Où 


* 


M 


CEE 


* 


* 








(prog) 
(primitive) 
(assembly) 
(prog) 
(prog) 
(prog) 
(prog) 
(prog) 
(prog) 
(prog) 
(primitive) 
(assembly) 
(Locname) 
(prog) 
(prog) 
(prog) 
(prog) 
(prog) 
(primitive) 
(primitive) 
(primitive) 
(primitive) 


(primitive) 
(primitive) 
(prog) 
(prog) 
(prog) 
(prog) 
(primitive) 
(prog) 
(primitive) 
(primitive) 
(primitive) 
(primitive) 
(primitive) 
(primitive) 
(primitive) 
(primitive) 
(primitive) 
cprimitive) 
(primitive) 
(primitive) 
(primitive) 
(assembly) 
(primitive) 
(primitive) 
(string) 


Cassembly) 
(assembly) 
(assembly) 
(assembly) 
(assembly) 


Jean François Garnier (242) 


SYSTEM RPL 
ACTE II 


Dans mon article Sytem Rpl sur HP28S (JPCS87), deux 
erreurs se sont glissées : 


- La commande pour obtenir la version de la 28S n’est 
pas #10h SYSEVAL, mais #Ah SYSEVAL. le Syseval erronné 
a de grandes chances de provoquer un MEMORY LOST. 


- Dans la routine s8-8, remplacer 8-R par R-8. 


Jean-Francois Garnier (242) 
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Je ve Sais pas ce qu'a ceke mackine 
mais elle es de plus eu plus 
alledveuse 
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HP48 


G. Toublanc 
G. Toublanc 
G. Toublanc 
G. Toublanc 


Le binôme de Newton (Acte II bis) 
Aides au désassemblage 
Récupération des mnémoniques HP 
REV: Nouvelle version 


Le coin des codes 








12 
15 
15 


29 
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BINOME DE NEWTON 
ou les bonnes relations 28-48 


Côté HP-28 vous trouverez dans l’article binôme de 
Newton des éléments communs aux deux types de 
machine. Si vous êtes intéressé par ce sujet ou 
seulement par les problèmes d’optimisation de 
programmes, vous êtes invité à vous reporter à 
l'article cité pour le mode d’emploi, les méthodes 
d'optimisation, et les commentaires complets du 


programme résultat. 


Voici le listing concernant les HP-48. Juste le début 
diffère de celui pour HP-28 et est commenté. 


BINIOU 

176 octets  cksum # FDIDh 

« 
STD 1 à 1 pour Le signe 
3 PICK à duplique /B' ou ’-B' 
IFERR OBJ+ a si ’B' OBJ+ alors erreur 
THEN DROP drop 8’ 


a 
ELSE 3 DROPN à sinon drope résultat de 
à OBJ-+ (3 niveaux) 
ROT NEG 3 ROLLD NEG a 
END SWAP O O 3 PICK a 
FOR t OVER t COMB 4 PICK 
t ?* 6 PICK 4 PICK 
t-7 6PICK t” 
NEXT 5 ROLLD 4 DROPN 1500 .5 BEEP 


pour La suite voir 
rubrique HP-28 


A+ 


Guy Toublanc (276) 





DECOMPILATION ET 
SEGREGATION 


Les programmes objet de cet article devraient grossir 
la rubrique Tucs, astuces et petits utilitaires car il sont 
courts et peuvent être utiles. Il font suite aux deux 
mini-programmes de cette rubrique du JPC de juin 
car ils nécessitent la librairie -RPL+ de l'excellent RPL 
Toolkit de Detlef Mueller et R.H (goodies disk 8). 


La décompilation d’un programme constitué à la fois 
de Rpl et d’assembleur nous donne avec RPL+ une 
chaîne listing des mnémoniques Rpl et pour 
assembleur CODE n cec....ccc où » est un réel pour 
la longueur du code et cec..ccc est la suite des codes 
hexadécimaux de la partie code. Pour obtenir le 
listing complet de désassemblage il faut éditer la 
chaîne, extraire les parties de codes hexa, avec chaque 
sous-chaîne de codes et réassembler avec -RPL puis 
chaque objet code doit être désassemblé avec con+ 
pour avoir le listing avec les mnémoniques 
assembleur. Ensuite il faut remplacer les blocs de 
codes hexa par les blocs listing assembleur dans le 
listing Rpl. Tout cela n’est pas simple et peut être 
source d’erreurs. 








Aussi je vous propose deux programmes automatisant 
ce travail. D'autre part les listing des fichiers sources 
avec leurs commentaires constituent une initiation à 
la programmation en System Rpl pour ceux qui ont 
du mal à débuter. 





Nous allons procéder en deux temps : 


1-PROGDEC génère une chaîne listing avec les 
mnémoniques de la partie System Rpl ou User Rpl et 
insère des marques "CobE_i" pour signaler les blocs de 
code assembleur d'ordre i. Ces blocs sont stockés 
dans des variables ’Codei” correspondantes. Cette 
façon de faire permet de désassembler des 
programmes importants avec moins de problèmes de 
mémoire. En effet une chaîne de code hexa occupe 
deux fois plus d’octets que l’objet en mémoire. 
Maintenant il vous est possible de lire le listing de 
désassemblage Rpl et de repérer les éventuels blocs 
de code assembleur.Vous pouvez aussi, pour chaque 
bloc, désassembler avec cop- les objets code contenus 
dans les variables ’Codei” pour les lister et les étudier 
individuellement. 


2- Si le programme comprend des parties assembleur, 
ALLDEC permet d’avoir le listing complet Rpl et 
assembleur de  désassemblage. Ce programme 
remplace dans le listing Rpl chaque marque "coDE_i" 
par le listing de désassemblage des objets code 
stockés dans les variables ’cCodei”. A ce stade vous 
pouvez éditer le listing, éventuellement modifier et 
puis réassembler le tout avec -RPL. 


Les commentaires devraient suffir à suivre la 
programmation. Pour les débutants je signale des 
différences avec les mêmes programmes écrits en 
User Rpl: 


- Utilisation des System Binary (SB) à la place des 
réels ce qui est moins octivore et d'exécution plus 
rapide. 











- Utilisation de points d’entrée uniques remplaçant 
plusieurs instructions User Rpl : 


L’équivalent de : 

1 n START ... NEXT OU 1 n FOR i ... NEXT 
est: 

ni 1 00 ... LOOP 

avec 1 et n+1 en system binary 
L’équivalent de : 

DO ... UNTIL ... END 
est: 

BEGIN ... UNTIL 
L’équivalent de : 

WHILE ... REPEAT ... END 
est: 

BEGIN ... WHILE ... REPEAT 


- Utilisation de variables locales de nom de longueur 
nulle d’où gain d’octets et qui se rappellent par 
nGETLAM ou se chargent par nPUTLAM d’exécution plus 
rapide et très économes en mémoire. 

- L'appel à des programmes de librairies ou XLIB se 
fait par ROMPTR m n où 71 est le numéro de librairie en 
hexa et n est le numéro de XLIB. 


Pour plus d'informations voyez le manuel de 
RPLCOMP (goodies disk 4) et aussi certaines 
informations trouvées dans les Secrets de la HP48 de 
J.M.Ferrard dont le tome 1 est centré sur les objets 
avec les externals qui s'y rapportent tandis que le 
tome 2 le complète pour la programmation. 


Je passe sous silence la 32€ édition d’un ouvrage 
pourtant célèbre mais qui pour le System Rpl est 
encore pratiquement nul. 


Et pour terminer voici sucessivement les fichiers 
sources des deux programmes annoncés qui peuvent 
se compiler indifféremment par RPLCOMP de HP ou 
-RPL du RPL Toolkit. 


PROGDEC 
190 octets  cksum # 7C34h 


de € début structure programme ) 


CKINOLASTUD € vérifie si 1 niveau de pile 
CODE 
A=DATI A * adresse de L'objet 
GOSBVL =SAVPTR * sauve Les pointeurs 
* pour PUSH#ALOOP 
GOVLNG =PUSH#ALOOP  * pousse l'adresse en 
ACA) sur La pile et retour au RPL 
ENDCODE 
SHAP € niveau 2 : adresse objet en ) 
€ system binary niveau 1 : objet ) 
oCRC € BYTES interne sur un objet -> ) 
€ Longueur en quartets : 1 SB et checksum ) 
DROPOVER € drop sur Le checksum puis over ) 





€ pour dupliquer L'adresse au niveau 1 ) 

#+-1 ( adresse objet + Longueur objet - 1 ) 
C = adresse fin en SB ) 

SWAP C niv. 2 : adresse fin ) 
C niveau 1 : adresse objet ) 

#>HXS ( conversion adresse objet : ) 
€ sytem binary -> integer binary ) 

ZERO Cinitialisation avec SB 0 : ) 
€ compteur de blocs de code assembleur ) 

NULLLAM € nom nul pour variable Locale : ) 
€ adresse fin ) 

NULLLAM C nom nul pour variable Locale : } 
( adresse début -> adresse courante ) 

NULL LAM C nom nul pour variable Locale : } 
C compteur de blocs assembleur ) 

THREEON € Liste avec Les 3 noms nuls ) 
€ pour création des variables locales ) 

BIND ( crée l’environnement des variables ) 
€ Locales ) 

NULLS Cinitialise La chaîne Listing ) 
Cavec La chaîne nulle ) 

BEGIN  ( commence La boucle DO ... UNTIL.. END ) 
2GETLAM C 2ième variable Locale -> ) 
€ adresse courante sur La pile ) 

ROMPTR 4D2 2 Ç appelle DCADR de <-RPL-> pour ) 
€ décompilation à l'adresse courante ) 

2PUTLAM € sauve L'adresse suivante dans ) 
€ La 2ième variable Locale ) 

DUP € duplique La chaîne courante ) 
€ de décompilation ) 

FIVE € system binary <5h> ) 
1_#1-SUB$ ( fait un SUB de 1 à 4 sur La chaîne ) 
€ courante de décompilation ) 

$ "CODE" € génère La chaîne "CODE" ) 
HXS#HXS C compare "CODE" au sub 1 à 4 : ) 
€ si chaînes différentes renvoie 1 sinon 0 ) 

20= € renvoie Le booléen TRUE si ) 
€ Le réel est nul sinon FALSE ) 

IT CIF THEN ) 
+ € si TRUE exécute ce programme ) 
ROMPTR 4D2 1 € appelle ->RPL de <-RPL-> pour ) 
€ compiler Le code ) 

$ "Code" { génère La chaîne "Code ) 
1GETLAM € 1ère variable Locale : ) 
€ compteur de blocs de code en SB ) 

#1+DUP C actualise compteur et duplique ) 
€ cette valeur ) 

1PUTLAM ( sauve Le compteur dans La 1ère ) 
€ variable Locale ) 

UNCOERCE  ( conversion sytem binary <-> réel ) 
DO>STR € conversion réel -> chaîne pour ) 
C indice de bloc de code ) 

SWAPOVER ( niv. 3 : indice niv. 2 : MCodel! } 
Cniv. 1 : indice ) 

as € concatène "Code" et La chaîne indice ) 
$>1D { conversion chaîne -> nom ) 
&ROLL € niveau 1 : La chaîne Listing ) 
$ "CODE _" € génère La chaîne "CODE" ) 





JPC 88 Page 13 — 








as ( concatène La chaîne Listing et "CODE 









ROT € niv. 2 : chaîne Listing + "CODE" ) 
Cniv. 1 : indice ) 

; € fin de ce programme ) 
NEULINESSS € ajoute newline à La chaîne ) 
€ courante ou à La chaîne indice ) 

as € concatène La chaîne Listing ) 
Cet cette chaîne ) 

2GETLAM € 2ième variable Locale : ) 


( adresse courante en entier binaire ) 
HXS># € conversion binary integer ) 
C -> system binary ) 


3GETLAM € 3ième variable Locale : ) 
( adresse de fin en sytem binary ) 

# {€ comparaison entre 2 sytem binary : ) 
€ renvoie Le booleen TRUE si > sinon FALSE ) 
UNTIL { sortie de boucle si TRUE : ) 
( adresse courante > adresse fin ) 

AGETLAM € 1ère variable locale : ) 


€ compteur de blocs de code assembleur ) 
#0=2SKIP ( si zéro alors saute L'objet suivant: ) 
C ici programme ) 

ss € début structure programme ) 
1GETLAM ( nombre n de blocs de code ) 
#1+_ONE_DO (DO) € boucle de 1àn+1:) 
Cenfaitiàän) 





UNROT ( niv. 3: chaîne Listing niv. 2: bloc i ) 
Cniv. 1 nom i ) 

STo € stocke bloc i dans variable ) 
€ globale “Codei" ) 

LOOP C fin de boucle si indice = n +1) 
ï € fin de ce programme ) 
ABND € fin d'environnement ) 


( des variables locales ) 
€ fin de structure programme ) 





ALLDEC 
171.5 octets  cksum # 7822h 
“ € début de structure programme ) 
CKINOLASTUD € vérifie s’il y a 1 niveau ) 
CKBDISPATCHO € de pile puis si c'est un ) 
THREE € argument de type chaîne ) 
€ début de structure programme si arg. ok ) 
DOSTD sm ) 
ONE Cinitialise position de recherche p ) 
ZERO Cinitialise compteur de blocs code i ) 
NULLLAM € 2ième variable Locale de nom nul ) 
NULLLAM € îère variable Locale de nom nul ) 
TUOON € Liste de ces 2 variables Locales ) 
BIND € crée L'environnement des var. Loc. ) 


BEGIN € début boucle while ... repeat .. end ) 
$ "CODE € génère La chaîne "CODE_" ) 
1GETLAM ( ère var. Loc. : compteur de blocs i ) 
#14DUP  C incrémente ce SB et Le duplique ) 
1PUTLAM ( sauvegarde i+1 dans La 1ère var. Loc.) 
#s € conversion System Binary -> chaîne ) 
8 € concatène pour faire "CODE_i" ) 
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2DUP € duplique chaine Listing et "CODE 
2GETLAM ( 2e var. Loc. -> position de recherche) 





Poss € recherche position de "CODE_i" ) 
DUP € duplique position p ou 0 en SB ) 
#0 € différent de 0 ? -> TRUE ou FALSE ) 
WHILE ( si TRUE alors exécute La suite ) 
se € début programme à exécuter ) 
DuP € dupl'ique position p ) 
2PUTLAM ( sauvegarde p dans La 2ieme var. Loc.) 
SWAP € échange entre p et "CODE_i" ) 
LENS € Longueur L de cette chaîne ) 
OVER#+ Cniveau 2: p niveau 1 : pl ) 
3PICKSUAP  Gniv.3:p niv. 2:listing niv.1:p#+l) 
OVERLENS €niv. 3: Listing niv. 2: ptl ) 
Cniv.1: Longueur chaîne Listing 


SuBS$ € sub du Listing de p+l à La fin 
UNROT (niv.3:le sub niv. 
1_#1-su8s 





) 
) 
isting niv.3:p ) 
€ sub du Listing de 1 à p-1 ) 
) 
) 


$ "CODE" € génère La chaîne "CODE" 

as € concatène ce sub et "CODE" 

$ "Code { génère La chaîne "Codes ) 
1GETLAM ( 1ère var. Loc. -> compteur de blocs) 
#s € conversion System Binary -> chaîne ) 
8s € concatène pour faire "Codeit 
$1D € conversion chaîne en nom ) 
XEGRCL € rappelle "Codei” ) 
ROMPTR 4D2 3 (appelle COD-+ : désass. Codei) 
as € Listing + Le desassemblage de Codei ) 
$ "ENDCODE" € génère La chaîne "ENDCODE" ) 
&ssuaP € Listing + MENDCODE" et échange ) 


€ avec La fin du Listing après "CODE_i" ) 

&$ ( concatène : La chaîne de désassemblage ) 
( de ’Codei’ a remplacé "CODE_i" dans Le ) 

€ Listing Rpl ) 

; € fin de structure de ce programme ) 
REPEAT ( on passe à La recherche de "CODE_i+1") 
2DROP € drop sur "CODE_i" et p avant Le while ) 
ABND (abandonne l’environnement des var. Loc.) 
: € fin de structure du programme après ) 
€ vérification du type de l'argument ) 

S ( fin de structure du programme entier ) 


Les codes hexa se trouvent dans Ze coin des codes. 


Guy Toublanc (276) 











TRUCS, ASTUCES ET 
PETITS UTILITAIRES 


Vous programmez en System Rpl ou Assembleur et 
vous avez une documentation qui vous donne des 
adresses diverses, par exemple celles que l’on trouve 
dans les très utiles Secrets de la HP48 de JM. 
Ferrard. Vous voulez connaître les mnémoniques 
correspondants HP. Il vous faut : 

- la librairie -rpL- de D.M (goodies disk 8). 

- ASC-+ : JPC 79 page 11 ou équivalent. 

- REV : JPC 82 page 28 et actualisé dans ce JPC, ou 
équivalent. 


Le petit programme MNEMO vous founira rapidement le 
mnémonique s'il existe, sinon l’adresse vous sera 
renvoyée dans une chaîne. 


Exemples : 


# 62035h : mnémonique dup; gn? des Secrets. 1 p 137 
# 62035 MNEMO + "=DUPTYPEIDNT?" 


# F1CSh : mnémonique <>gn? des Secrets. 1 p 137 

# F1C8 MNEMO + "#01FC8" 
Pas de mnémonique HP donc point d'entrée non 
supporté 


Le principe du programme est très simple : L'adresse 
est transformée en une chaîne de 5 caractères qui est 
inversée. On ajoute "D9D20" avant cette chaîne et 
"B2130" après, obtenant ainsi les codes hexa d’un 
programme. Ces codes sont assemblés par ASc- puis 
ce programme est décompilé par RPL+. On fait un sub 
sur la chaîne générée pour obtenir le mnémonique. 
Ceci donne aussi bien les mnémoniques Rpl et 
Assembleur grâce à un défaut de RPL+ qui donne aussi 
les mnémoniques de l’assembleur ce qui n’est pas très 
logique mais fait ici notre bonheur. 


MNEMO 
123 octets  cksum # A472h 
« RCLF SWAP HEX 24 

STUS # 100000h + 

-STR 4 8 SUB REV 

"D9D20" SUAP + "82130" + 

ASC-+ RPL+ 4 OVER 

SIZE 2 - SUB SUAP 

STOF 


Guy Toublanc (276) 





CHOC EN RETOUR 


Dans JPC 82 page 28 j'avais publié une version de REV 
permettant d’inverser les caractères d’une chaîne 
mais ce programme a le défaut de modifier aussi la 
chaîne dans la variable dont elle est issue. Pour 
remédier à celà il suffit d’appeler la routine TOTEMPOB 
pour recréer la chaîne en mémoire. 


Voici le nouveau fichier source fichier modifié et avec 
un gain de 2 octets grâce à l’utilisation de la routine 
GetStrLenStk. J’ai remplacé cK1&Dispatch qui s’utilise 
de préférence pour des programmes de librairies, par 
CKINOLASTUD et CK&DISPATCHO plus adaptés ici: 


REV 


58.5 octets  cksum # 9069h 


CKINOLASTHD CK&DISPATCHO str 
:: TOTEMPOB 

CODE 

=SAVPTR 
=GetStrLenStk 


gosbvl 
gosbvl 
adiex 
di=a 
a=ate a 
asatc a 
do=a 
csrb.f a 
bee a 
gonc  decr 

Loop … d0=d0- 
c=dat1 
a=dat0 
dati=a 
datO=c 
di=di+ 

decr b=b-1 
gonc Loop 

out  govlng =GETPTRLOOP 

ENDCODE 


o wo uvun 


Vous trouverez la liste des codes dans /e coin des 
codes 


Guy Toublanc (276) 
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QU'ELLE ETAIT VERTE 
MA DISQUETTE 


Voici (enfin !) le première fournée de ce que nous 
pourrions appeler les "Goodies Disk HP95". Il s’agit 
d'une sélection personnelle de programmes 
totalement spécifiques au HP95 (applications System 
Manager, programmes graphiques ou sonores), ainsi 
que des utilitaires MS-DOS classiques, mais 
particulièrement intéressants en raison de leur très 
faible taille ou de leur bonne utilisation de l'écran du 
HP95. 


Tous les programmes sont en Freeware (totalement 
gratuits) et en Shareware (une faible rétribution est 
demandée). Je vous encourage donc à lire les 
documentations et à respecter les souhaits des 


auteurs... 


La grande majorité des programmes inclus dans ces 
disquettes sont d’origine américaine et sont donc 
fournis avec une documentation en anglais. Désolé 
pour les anglophobes, mais sachant que certains 
fichiers dépassent les 6000 lignes, jai préféré 
abdiquer tout de suite ! Notez aussi que certains 
fichiers (Lotus notament) nécessiteront soit que vous 
configuriez votre HP95 en Anglais, soit que vous les 
adaptiez. Dans tous les cas n'oubliez pas que si vous 
avez des problèmes d'installation ou d'utilisation, je 
suis à votre disposition pour vous aider. 





Tous les fichiers ayant trait à un même programme 
ont été regroupés et compressés dans un fichier "Z1P". 
Ceci permet de mettre plus de programmes sur une 
même disquette, mais aussi de simplifier les échanges. 
D'autre part, la plupart des fichiers exécutables (com 
et EXE) ont été compressés avec PKLITE, ce qui 
permettra de réduire leur taille dans les disques Ram 
du HP95. 


Voici maintenant un court aperçu de ce qui est 
présent sur les disquettes : 


Disquette n°1 


Cette disquette est plutôt orientée sur les fichiers 
d'applications ou les extensions des applications 
intégrées. 


Un directory APPT contient des programmes étendant 
les possibilités d'affichages du module Agenda, ainsi 
que des utilitaires de conversion de fichiers .ABk. 


Pour ceux qui désirent effectuer des calculs 
informatiques (conversion de bases, opérations 
logiques) j'ai inclus deux calculatrices System 
Manager, une en RPN l’autre en algébrique. 


Hormis le célébrissime KERMIT, que j'ai inclus ici 
pour les quelques personnes qui ne l’auraient pas 
encore, vous trouverez d’autres programmes de 
communications dont un de très faible taille 
permettant de transférer des fichiers à 115 kbauds. 


Les utilisateurs de Lotus trouveront aussi quelques 
feuilles de calcul concernant la gestion de compte 
bancaire, des calculs d’assurances, une application 
médicale. 


Un directory PHONE est particulièrement fourni en 
utitaires de conversion des fichiers P&K vers d’autres 
programmes (SIDEKICK...) ou d’autres ordinateurs de 
poche (Psion..). 


Pour les utilisateurs des applications intégrées, le 
programme le plus important de ces deux disquettes 
sera sûrement 95BUDDY. En effet, ce programme 
(probablement le plus connu sur le HP95) vous 
permettra de corriger tous les petits défauts qui 
rendent l’utilisation de la machine un peu irritante. 
Vous pourrez par exemple, en étant dans le FILER 
sélectionner un fichier, le visualiser en tapant ENTER, 
puis si vous le désirez, activer le MEMO et éditer le 
fichier en appuyant tout simplement une deuxième 
fois sur ENTER. Le programme offre ce genre de 
raccourcis clavier à toutes les applications internes, et 
bien d’autres choses encore. 


Parmi les autres utilitaires, vous trouverez des 
programmes permettant de configurer les possibilités 
spécifiques du HP95 (Volume, Timeout, liaison 
série….), des programmes d’impression d'écran, des 
applications permettant de lancer simplement des 
applicationes Dos à partir du System Manager, des 
programmes graphiques, des utilitaires de 
visualisation de fichiers et une sélection des plus 
petits utilitaires DOS, pour ne pas encombrer la 
mémoire de votre HP95. Dont deux utilitaires de 
cryptage/décryptage de fichiers faisant moins de 700 
octets à eux deux... 


Dans toute compilation, il y a toujours des fichiers 
que l’on ne sait pas où classer. Celle ci n'échappe pas 
à la règle. J’ai donc choisi la solution de simplicité en 
créant un directory DIVERS. Celui ci contient donc 
quelques "bizareries", telles qu’un programme vous 
informant de la présence d’un "petit homme vert" 
dans votre HP95, ou des fichiers .P8k utilisant 
l'application de répertoire téléphonique comme 
gestionnaire de base de données pour donner les 











coordonées géographiques des principaux aéroports 
mondiaux... 


Disquette n°2 


La deuxième disquette contient des éditeurs de textes 
et les applications, disons, moins sérieuses. 


Des Echecs au Tetris de notre ami Yann Rousse 
(probablement le programme français le plus connu 
sur HP95) vous trouverez aussi de quoi vous amuser 
quelques bonnes heures. Pour ma part, je vous 
conseille SOKOBAN, un programme tactique très 


sympathique... 


Pour tous ceux qui ne supportent pas l'éditeur 
intégré, vous en trouverez trois autres, très puissants 
et aux possibilités très différentes : VDE (plutôt 
orienté traitement de texte), OUTL9S (permettant de 
gérer des très gros mémos, avec une gestion de 
chapitres) et QED (très puissant et totalement 
paramétrable). 


Si vous commandez ces deux disquettes, et même si 
vous possédez une carte mémoire, vous risquez de 
vous trouver très vite face au problème de 
encombrement de la mémoire de votre HP95. C’est 
pour cela que jai inclus ici les principaux 
programmes de compression de fichiers (PKZIP, 
LHARC, DIET...). La plupart d’entre eux permettent 
non seulement d’archiver les fichiers, mais aussi de 
compresser les exécutables de façon totalement 
transparente. Cependant, les taux de compression et 
les vitesses de traitement étant différentes, ce sera à 
vous de choisir lequel utiliser suivant vos impératifs. 


De la sonnerie du téléphone à l'indicatif de la série 
télé "Twilight Zone’, en passant par le désormais 
célébre "VII be back" du Terminator, vous aurez tout 
ce qu’il faut pour faire du bruit pendant vos réunions 
de travail ! Il est à noter que ces programmes ne 
fonctionneront pas sur le HP100LX, car il ne dispose 
pas du même "hardware" que le HP95. 


Si vous désirez changer l’écran d’acceuil de votre 
machine, j'ai déniché quelques "Topcards", dont notre 
cher Albert Einstein... 


Ces deux disquettes s'adressent d’abord aux 
utilisateurs de HP95. Cependant, il est fort probable 
que la prochaine soit plus orientée vers la 
programmation, avec peut-être des compilateurs de 
faible taille, mais surtout de nombreux sources et des 
informations concernant le développement des 
applications System Manager. Ce serait donc un peu 
lequivalent de notre Kit de développement HP48... 


Jacques Belin (123) 


D ———————— 


CHOIX MULTIPLES : 
UNE SEULE REPONSE ? 


Depuis que dans certains examens et dans de 
nombreux cas, la pratique des interrogations par 
questions à choix multiples s’est répandue, on a vu se 
développer et se multiplier la variété des Q.C.M. 


Certains sont de simples séries de questions dites 
"fermés", auxquelles on ne peut répondre que par oui 
ou non, ou ne pas répondre. Cette variété convient 
parfaitement aux enquêtes d'opinion publique. Le 
programme de correction automatique présenté ici 
peut être adapté à ce genre d’interrogations. Il suffit 
de convenir de donner le code 1 à une réponse 
affirmative, le code 2 à une réponse négative et le 
code 0 à l’absence de réponse pour pouvoir trier 
ensuite les réponses sur chacun de ces critères et 
"traiter" l'information ainsi collectée. Un tel tri 
pourrait d’ailleurs être automatisé. 


Mais ce programme convient surtout à un véritable 
Q.C.M., car il peut analyser les réponses en les triant 
sur la base d’un choix de réponses à chaque question 
compris entre 1 et 9. 


Traitons aujourd'hui, ce genre de questionnaires. 


Le programme comprend 3 Macros. La première 
dénommée “\1", permet l’initialisation du système, en 
enregistrant le nombre de questionnaires à traiter, 
puis la réponse correcte à chaque question. Ces 
réponses sont enregistrées dans la colonne D. Le 
nombre de questions prévues est de 60, mais il est 
possible de lutiliser pour des questionnaires moins 
longs, en enregistrant 0 pour chacune des questions 
supplémentaires au delà de la dernière question du 
questionnaire à traiter. 


La seconde Macro dénommée "\o" permet la saisie 
des données et le calcul de la note obtenue pour 
lensemble des réponses. Pour chaque question, elle 
enregistre la réponse, la compare à la réponse 
correcte et attribue la note 2 s’il n’a pas été répondu à 
la question, la note 1 si la réponse est différente de 
celle de la réponse correcte et la note 0 dans le cas 
contraire. 


Ces notes sont en réalité des notes négatives 
soustraites d’un total de 60 points (1 par question) 
dont chaque candidat est crédité. Au total, la note 
obtenue correspond bien au rapport entre le nombre 
de réponses justes et le nombre de questions. Il est 


ramené à 20 et arrondi à l’entier le plus proche. 
Toutefois, dans le cas où le nombre de questions du 
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questionnaire considéré est inférieur à 60, il convient 
de multiplier la note obtenue et affichée dans la 
cellule C71, par le rapport inverse entre le nombre de 
questions et 60. 


On voit aisément l'intérêt du parti adopté dans 
Pécriture de ce petit programme qui est d'afficher 
toutes les données importantes dans le cadre des 
seules quatre premières colonnes standard que 
l'écran du "Jaguar" peut seulement contenir à la fois. 
Cela permet d'éviter les défilements latéraux toujours 
désagréables, sauf si on bloque à la fois les titres des 
lignes et des colonnes, ce qui réduit encore l'écran 
utile en le ramenant au mieux à 3 colonnes et 
quelques lignes. En prenant la précaution de bloquer 
les titres à la ligne 6, il est possible de visualiser à la 
fois pour chaque question la réponse exacte (colonne 
D), la réponse saisie (colonne B), la note attribuée à 
chaque réponse qui apparaît à la colonne C. Dans la 
partie du haut de l'écran réservée aux titres, apparaît 
colonne B, le nombre total de copies à corriger et 
colonne D, le numéro de la copie en cours de 
correction. 


La troisième macro, dénommée "\r", permet d'établir 
la liste des notes obtenues par les différentes copies. 
Il suffit de l'appeler dès que la note de la copie traitée 
apparaît dans la cellule C71. Le nombre de copies à 
traiter à été volontairement limité à 20, afin 
d'économiser la mémoire du petit "Jaguar", mais il ne 
serait pas difficile de l’augmenter aisément, surtout si 
ce logiciel venait à être utilisé sur le tableur d’un 
véritable P.C.. 


A cet effet, un parti inhabituel a été pris. Celui 
d'écrire les Macros elles-même dans trois colonnes 
voisines, rendant possible la multiplication ou la 
réduction du nombre de lignes d'écriture en insérant 
de nouvelles lignes ou détruisant une partie de celles 
qui existent. Mais il s’agit là d’une opération délicate, 
susceptible d’être au moins partiellement 
automatisée, ce qui pourrait faire l’objet de l'écriture 
de nouvelles macros. Je me propose de vous en 
entretenir dans un prochain article. 


Pour conclure celui-ci, je me bornerai à rappeler que 
les trois macros étant nommées, il suffit de taper à la 
fois ALt et la lettre nommant la macro pour démarrer 
le programme. Donc tapez Att+1 pour initialiser les 
réponses correctes. Lorsque toutes les réponses 
correctes ont été enregistrées, tapez ALt+D pour saisir 
les données du premier questionnaire à traiter. Enfin, 
lorsque toutes les données du questionnaire ont été 
saisies et que la note apparaît dans la cellule C71, 
tapez Alt+R si vous désirez établir une liste des 
résultats. Après l'enregistrement de chaque résultat 
dans une cellule de la colonne C, à la suite du 


précédent, tapez à nouveau Alt+D pour continuer la 
saisie des réponses. 


Description de la feuille de calcul 


NDLR : Si vous utilisez une version US du HP95, ou que vous 
avez configuré votre HP9S en mode English’, il est nécessaire de 
traduire les commandes Lotus en Anglais. Pour cela utilisez les 
correspondances suivantes : SI-IF, SOIT-LET, VA+GOTO, 
CONTENU-CONTENTS, SOMME-SUM, QUITTE-QUIT, B-D et D-R. 


Entrez les valeurs spécifiées dans les cellules 
suivantes : 


Cellule A1 : ’a.c.M. 
Cellule B1 : ‘Réponse: 
Cellule D1 : ’Rép.Juste 
Cellule A3 : ’N. Copies 
Cellule B3 : 20 

Cellule C3 : ‘Compteur 
Cellule D3 : 0 

Cellule A6 : 
Cellule C6 : 'N. Quest: 
Cellule D6 : 60 





‘Questions: 





Cellule A9 : 1 
Cellule A10 : +A9+1 
Cellule A11 : +A10+1 


Cellule A68 : +A67+1 
(Méthode : Ecrire la cellule A10, puis la recopier avec 
°/r° sur les cellules A11 à A68) 


Cellule B9 : 1 
Cellule C9 :as1(B9-09;0;a51(89=0;2;1)) 


Cellule C10 : as1(810=D10;0;aS1(810=0;2; 
Cellule C11 : a51(811=0110;a81(811 


1) 








Cellule C68 : as1(B68=D68;0;aS1(868-0;2;1)) 
(Même méthode que précédement) 





Cellule D70 : ‘o.k. 

Cellule A71 : ‘Note: 

Cellule C71 : (60-2SOMME (C9. .C68))/3 
Cellule C73 : ’Résultats 

Cellule A74 : 'Devoir N° 


Puis spécifiez les cellules C74 à C93 en notation 
*FIX 2, en se plaçant sur la cellule C74, puis en 
exécutant la séquence de touches ?’CFF2 C74..c93 
CRFF2 C74..c93” en version US). Faites la même 
opération pour la cellule C71. 














Enfin, protégez les titres en vous placant en ligne 7 et 
en exécutant la séquence de touches ?/fth? (’/uth° en 
version US). 


Le texte des Macros 


Remarques générales : 


1-Il est préférable d'écrire chaque Macro dans une 
seule colonne. 


2-Il est préférable également d'écrire une Macro 
directement, plutôt que d’utiliser le mode d'écriture 
"automatique" (alt F5), qui sépare chaque instruction 
en changeant de cellule, alors qu’il est possible de 
regrouper plusieurs instructions par cellule pour créer 
des séquences rendant plus intelligible l’ensemble du 
programme automatisé et facilitant la reproduction 
des séquences identiques par utilisation de 
l'instruction "recopie" (Menu ou / puis R (c en US), 
détermination de la cellule ou du champ (ensemble 
de plusieurs cellules) à recopier, détermination de la 
cellule ou du champ où l'instruction est recopiée. 
Pour cela il ne faut pas hésiter à créer des colonnes 
de plus de 9 caractères de largeur en utilisant 
Pinstruction /FCD (/Wcs en US) qui permet d'en 
modifier la largeur jusqu’à 254 caractères. 


3- Chaque instruction simple est précédée du symbole 
"c" et suivie du symbole ">". Il en va de même des 
instructions complexes, auxquelles il convient 
d'ajouter à l’intérieur des © les arguments séparés 
par le symbole séparateur ";". On le voit, il n’y a pas 
une très grande différence de technique entre la 
programmation "123" et la programmation en langage 
"Basic HP71" bien connu des membres du club. 








4- Pour éviter toute interférence entre la zone des 
données de la feuille de calcul et celle du programme, 
il est préférable de placer cette dernière au dessous et 
à droite de la première. 


5- Enfin dans l'écriture d’un programme composé de 
Macroinstructions il ne faut laisser aucune cellule 
vide entre deux instructions. 


Macro \1 : 


Cellule G103 : €SOIT D33;+0)- 
Cellule G104 : VAIA9-{D3D3€D3 
Cellules G105 à G164 : €?3-{83 
Cellule G165 : va2070- 

Cellule G166 : {SOIT D70;"0.k."}- 
Cellule G167 : CQUITE>- 


Et] 


Elle a été écrite dans la colonne G des cellules 103 à 
165, portées à une largeur de 19 caractères. La cellule 
G103 contient les instructions qui ramènent le 
compteur à zéro. La cellule G104 contient les 
instructions positionnent le pointeur sur la première 
cellule qui doit recevoir des données. Sa fonction est 
quasiment équivalente à (VA)D9-, mais en 
repositionnant la colonne D à droite de l'affichage. La 
cellule G165 contient les instructions destinées à 
indiquer à l’utilisateur que la saisie des réponses type 
est achevée. La cellule suivante, la dernière du 
programme, contient l’instruction (QUITTE} mettant fin 
à l'exécution de la "Macro". Les cellules comprises 
entre la cellule G104 et G164 contiennent toutes les 
instructions {?2-(8), permettant au programme de 
stocker interactivement les données saisies dans la 
cellule où le pointeur est positionné et ceci fait de se 
positionner sur la cellule de la ligne suivante. 


Les autres "Macros" ont été écrites en s’inspirant de la 
même philosophie. 


Cela donne: 
Macro \0 : 


Cellule F103 : (SOIT D3;+D3+13{S0IT D70;""} 
Cellule F104 : cVADA9-{D} 

Cellules F105 à F164 : (?2-€8> 

Cellule F165 : (882€) 


Cette macro est enregistrée dans la colonne F d’une 
largeur de 29 caractères. 


La cellule F103 contient les instructions nécessaires 
pour positionner le pointeur, aprés avoir activé le 
compteur de copies, initialisé à zéro par la macro \1 
et effacé le message de fin d’initialisation inscrit dans 
la cellule D70. 


La cellule F165 suspend l'exécution de la Macro, 
aprés avoir positionné le pointeur sur la cellule 
contenant la note obtenue par la copie qui vient d’être 
saisie. 


Les autres cellules comprises entre F104 et F164 
contiennent toutes les instructions €?2-{(8> déjà 
rencontrées dans la Macro /1. 


Macro \R : 


NDLR : Le caractère indique que ce qui est marqué sur la ligne 
suivante appartient à la même cellule. 


Cellule H103 : {SOIT A75;A74){SOIT A76;A74  \ 
{SOIT A77;AT4)CSOIT A7B;A74} 

Cellule H104 : {SOIT A79;A74}{SOIT AB0;A74)  \ 
{SOIT AB1;A74)CSOIT AB2;A74} 
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Cellule H105 : {SOIT A83;A74){SOIT AB4;A74)  \ 
{SOIT A85;A74){SOIT AB6;A74} 

Cellule H106 : {SOIT A87;A74}{SOIT A88;A74)  \ 
{SOIT AB9;A74{SOIT A90;A74} 

Cellule H107 : {SOIT A91;A743{SOIT A92;A7437  \ 
{SOIT A93;A74} 

Cellule H108 : SI D3=0)CQUITE> 


Cellule H109 : çS1 D3=13{CONTENU 874;D3) \ 
£CONTENU C74;C71)€VADA74-(D3{D)  \ 
<QUITTE} 

Cellule H110 : SI D3=2)€CONTENU 875;D3) \ 
{CONTENU C75;C71}CVA)A75-{D}(D} \ 
<QUITTE} 

Cellule H128 : {SI D3=20)(CONTENU 89303) \ 
{CONTENU C93;C71)€VA)A93-€D3€D)  \ 
<QUITTE} 


Cellule H129 : €S1 D3>20){QUITTE} 


Pour cette Macro, la structure est un peu différente et 
utilise une formule récurente qui peut être écrite sur 
une ligne, recopiée sur les suivantes en corrigeant les 
adresses des cellules concernées. Le résultat est le 
suivant: Colonne H portée à la largeur de 70 
caractères. Les 4 premières lignes répètent au total 19 
fois linstruction de recopie de la cellule A74 
contenant le libellé "Devoir N°:", dans les cellules des 
lignes suivantes soit de A75 à A93. 





La ligne suivante (H108) invite la Macro à stoper la 
déroulement du programme si le compteur de copies 
est sur 0, et chacune des lignes suivantes (H109 à 
H128) permet au pointeur de se positionner sur la 
cellule de la colonne B correspondant au numéro de 
la copie et d'inscrire dans la cellule de la colonne C 
voisine la note obtenue par cette copie. 


Chacune des lignes suivantes contient les mêmes 
instructions au numéro de ligne de la cellule qui est 
incrémenté d’une unité chaque fois pour aboutir à la 
ligne H128. 


La dernière ligne du programme est destinée à 
empécher tout dépassement du nombre de copies. 


Cela peut paraître compliqué. Il n’en est rien en 
réalité. L'écriture des "Macros" peut sembler difficile. 
Cela tient au vocabulaire des tableurs qui utilise 
fréquemment des mots longs. Mais le sens de ces 
mots est presque toujours évident et la 
compréhension de la syntaxe en est simplifiée. 


Bonnes corrections. 


Paul Guérin (353) 





RECHERCHE FICHIER 
DESESPEREMENT... 


Dans le précédent numéro, je vous ai présenté un 
petit utilitaire permettant de determiner avec 
précision lencombrement d'un ou plusieurs 
directories. Ce mois-ci, je vous présente son petit 
frère qui vous permettra de retrouver un ou plusieurs 
fichiers égarés dans l'arborescence de votre disque 
dur. Comme pour ou, il s’agissait précédement d’un 
programme écrit en langage C, que j'ai converti en 
assembleur afin de réduire sa taille de façon très 
significative. 


Notez avant tout qu’il ne brille pas par son originalité, 
car des utilitaires équivalents ont déjà été écrits à de 
nombreuses reprises. Ma version a cependant tenté 
de trouver un bon compromis entre les versions 
"puissantes" permettant entre autre de trouver des 
fichiers par rapport à la date, mais très gros (plus de 
5000 octets) et ceux de très petite taille n’effectuant 
les recherches que par rapport au nom des fichiers. 
Vous en trouverez un exemple dans la disquette 
HP95 n°1, faisant moins de 512 octets WHERE. COM. 


Appelé WHEREIS, sa syntaxe est la suivante : 


whereis [-h] [-s] [-r] [-a] [-d répertoire_initial] 
fichier] [fichiers...] 


Les options ”-h’, ?-s’, *-r et ’-a’ indiquent que l’on veut 
limiter la recherche aux fichiers possédant les bits 
d’attribut correspondants armés : 


: fichiers cachés 

: fichiers système 

: fichiers protégés en écriture 
: fichiers modifiés 


ww 


L'option ?-d’ permet d'indiquer que lon veut 
restreindre la recherche à un répertoire donné ainsi 
que ses sous-répertoires. Si vous désirez n’effectuer la 
recherche qu’à partir du directory courant, il faudra 
entrer l'option ’-d.”. Par défaut, la recherche est 
effectuée dans la totalité du disque courant. 


Après ces options, il est possible de spécifier un ou 
plusieurs paramètres correspondant à des noms de 
fichiers ou de directories. Les Wi/dCards sont bien 
entendu acceptés. 














La recherche s’effectue pour tous les fichiers et pour 
tous les directories, même si il sont cachés. 


L'affichage des fichiers se fait sous une forme 
sensiblement équivalente à celle de l’instruction DIR, 
avec en plus lindication de leurs attributs. 
Malheureusement pour les utilisateurs de HP95, je 
n’ai pu réduire la ligne de texte qu’à 41 octets, ce qui 
fera perdre l'affichage du bit "archive" sur l’écran du 
Jaguar. 


Exemples d'utilisation 
Si nous voulons chercher tous les fichiers 
commencant par le caractère "_", sur le HP95, il nous 
suffit de taper : 

whereis _*.* 


Ce qui nous donnera ceci : 


Directory : 
_CFLOW.WK1 4456 01/10/91 08:00 ..RA 
_STAT.UK1 5463 01/10/91 08:00 ..RA 
_sYs <DIR> 01/10/91 05:18 H.R. 
_DAT <DIR> 01/04/91 00:00 
Directory : \_SYS 

_1.PBK 512 01/10/91 08:00 ..RA 


Directory : \_DAT 


_1.PBK 512 01/10/91 08:00 .... 


6 files found 
Si (comme moi) vous avez l'habitude d'utiliser la 
commande xcopy /m pour effectuer vos sauvegardes, il 
est possible d’afficher seulement les fichiers crés ou 
modifiés depuis la nouvelle sauvegarde. Il suffit 
d’entrer la commande suivante : 

whereis -a 

Si vous ne désirez faire la même chose que pour 
certains fichiers, et sur un autre disque, vous pourrez, 


par exemple, taper : 


whereis -a -dd: *.txt *.doc 


Il existe cependant un petit défaut dans le 


programme. En effet, l’ordre suivant : 
whereis -d\tmp uhereis.* *.com 


affichera : 





Directory : \tmp 


WHEREIS.COM 1830 26/06/93 10:28 ...A 

WHEREIS.ASM 23439 26/06/93 10:28 ...A 

DU.COM 1532 04/06/93 13:02 ...A 

WHEREIS.COM 1830 26/06/93 10:28 ...A 
4 files found 


Vous pouvez noter que WHEREIS.COM est affiché deux 
fois, ce qui peut être relativement gênant lorsque il y 
a beaucoup de fichiers. Il aurait été possible de tenir 
compte de ce problème (en stockant les noms de 
fichiers en mémoire puis en comparant les doublons), 
mais cela aurait trop augmenté la taille du 
programme. Il convient donc de connaitre l'existence 
de ce défaut, et en tenir compte lorsque on spécifie 
les paramètres. 


Fonctionnement du programme 


Comme je l'ai mentionné au début de cet article, ce 
programme est une variation directe du programme 
Du.com ct possède la même structure récursive. Je ne 
me bornerai donc qu’à expliquer les différences entre 
les deux programmes. 


La différence principale réside dans le fait que 
l'affichage se fait à l’intérieur de la boucle de 
recherche des fichiers, alors que pour ou, il se faisait 
juste après. La seconde grande différence est que 
"*#" était le seul paramètre de recherche possible 
dans Du, alors que pour whereis nous utilisons les 
paramètres de la ligne de commande. De plus, le 
nombre d'arguments étant variable, une boucle 
(pointée par optind) englobe la boucle de recherche 
des fichiers. 


L'affichage des informations concernant le fichier est 
géré par le sous-programme d_entry. Il prend ses 
informations dans une zone mémoire de format 
équivalent à ce qui est retourné par les fonctions 4E 
et 4F du DOS. L'affichage de la date peut se faire 
aussi bien sous le format US (MM/JJ/AA) 
qu'Européen (JJ/MM/AA), à condition que la 
variable country ait été initialisé à l’aide des 
informations issues de la fonction 38h du DOS. Ce 
qui est fait au début du programme principal. 


Vous trouverez les codes Hexa décimaux du 
programme dans le Coin des Codes. Notez qu’afin de 
diminuer votre travail, je l’ai compilé avec l'option 
?-m2 de TASM, puis compressé avec DIET, ce qui n’a 
normalement aucun intérêt car lencombrement 
disque ne change pas. La taille du programme 
original est de 1830 octets. 


Jacques Belin (123) 
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1-03] auf 
o'Ce+dq] 434 piom dus 
21onoq uo ’uouls L'03] auf 
LUI LS 2352} o’tdq] sad piom dus 
xq 22p 
!s 22p 
auley2 sUep 21n314J99 ! 1p'[s] AOÛ 
119SY U2 31B1p np UOISJDAUOI ! U0g'1P ppe 
quatjonb aanes xe' [dq] AOÛ 
xq Ua 152 3161p 21 *X9/XVXQ UOLSLALP x AIP 
ojdies spiod op jou tdq) ‘xe AOU 
auo13onb 91 oanes uo ! xe' [24dq1 nou 
xda Ua 352 21524 2] ‘UOISIAIP x AP 
XV Ans onb 318 2 au UoISIAIP E] xp'xp  qns 
140} splod 9p jou 21 2424994 UO Le+dq) "Xe AOU 17203 
(aseq) JnaslAlp * OL'x2 AOÛ 
(oiqtez splod 3161p) auteuo e1 9p_ {s 22p 
919398)9 JoiuJap np Uol3isod jno1e9 ! xq'is ppe 
ds'dq nou 
(s209e so1 sotyiiduis Jnod) xe  ysnd 
oyid e] Suep aujaueded o1 anes Uo ! xp ysnd 
dq  ysnd 
1S  usnd 
ip uysnd 
%2  ysnd 
xq  ysnd 
yvaN  JOëd 














dan3 Hiutid} 





104 
xe  dod 

x  dod 

ylz qui 

a6ey213ye yoy‘ue AOÛ 

auLey2 e] ap JnenBuo] e) 2p 1n2189 Ulis 1182 
x ysnd 

xe  ysnd 


AväN JO +iutid} 


AAA AO AN 
aunony ? 211108 


e1pueu = x8 
auLeu) = xa:SQ : sopuaue 


xg Xn]} 91 
suep s212198Je2 2p auleyo oun 249148 ? AINIUdA 


AAA 


dan  e1p395 








3224 
xe  dod 
xq  dod 
xp dod 
sp dod 

ylz au 

VLQ e1 ep uol397os ! uyL'US Aoû 

xq'xp AOU 

sosyauesed s9) uuola{sod uo ! xe'sp AOÛ 
sp ysnd 

xp snd 

xq  ysnd 

xe  ysnd 


YVAN JOHd E1p39S 


MAR DE  À 
aunane 211108 


VLd ossaupe = XBIXY : SaDJaU 
VLG 81 op aSSoupe,] ouuolTISOd ?  VLQ13S 
OAI AIO 








düN3  e3p196 


304 
sa dod 

sa'xe AOÛ 

yLz qui 

VLQ 2ssoupe a1n3221 ysz'ue AOÛ 
sa usnd 


YVIN  DOùd E1p196 

AO AA OO DOC À 
VI JUoubas = XBIXV ? 211108 ! 

aunony : SapJqua 

La e1 2p 2ssaupe;] auuoq : V10139 


AAA EEE ORDER 











auLey2 2p 1nqpp NP 2SS2JPY = 1S:5Q 
18303 S31B1p ap aiquou = X8 
A1JA8AUOD @ 9Jquou = XYIXO 

GO\1) eûteua op U14 9p 2p02 2p Sed 
a3loJp € 291135nf 

aujeyo ue Buo] 421102 Unp OI SISAUOT 











x 
xp 
!s 


Ad333s 


dON3 282435 
294 
dod 
dod 
dod :j7e2118 


1e 
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LE COIN DES CODES 


La compilation de certains programmes, tels ceux 
écrits en assembleur, nécessitent souvent un logiciel 
que ne possèdent pas tous nos lecteurs. Le Coin des 
Codes permet de résoudre ce problème. 


Note importante : 


Même si la présentation des listings est identique, le 
traitement de ceux-ci est différente suivant le 
programme d’entrée et la machine de destination. 
Chaque listing est prévu pour être entré sur sa 
machine de destination. Par exemple, ne tentez pas 
d'entrer un programme HP48 dans un fichier 
MS-DOS à l’aide du programme MAKEDOS. Vous 
obtiendrez un fichier que vous ne pourrez pas 
transférer dans la HP48. 


Programmes HP48 et HP28S 


Par rapport aux méthodes habituelles sur HP48, notre 
méthode effectuant un calcul local du checksum en 
fin de chaque ligne permet de faciliter la recherche 
d'erreurs, par rapport à une même recherche dans 
une chaîne de plusieurs centaines d’octets. 


Par mesure de sécurité sauvegardez vos programmes 
et fichiers, éventuellement verrouillez vos cartes. 


Tapez les deux programmes correspondant à votre 
machine: 

- pour HP-48 : ASSCOD48 et INPUT48 

- pour HP-28S : ASSCOD?28 et INPUT28 

(attention aux parties communes et spécifiques HP-48 
ou HP-28S et aux commentaires) 

Ceci avec la plus grande attention car leur mauvais 
fonctionnement peut entraîner un désordre fatal pour 
les objets contenus dans votre machine. La 
commande sPeeD (JPC-85 page 12) peut être incluse 
au début de ASSCOD28. NEWLINE (+) s'obtient sur 
HP-48 par [flèche bleue] puis [.]. 


ASSCOD28 1136 octets 
cksum # D419h 


ASSCOD48 996.5 octets 
cksum # 5D1Bh 


« RCLF HEX 64 STWS 1 SF M" ’tmpcod’ STO 
“nombre d'octets @ + NEWLINE 


@ NEWLINE 
"17 INPUT48 1 CF STR-+ 2 * 16 @ INPUT28 
DUP2 / IP 3 ROLLD MOD DUP2 O > + @ si HP-28S 


3 ROLLD 1 + 4 ROLL # Oh DUP + nr f s o « 1 SWAP 

FOR i 

DO “Ligne " i 1 - R-B # 1000h + -STR 4 6 SUB + DUP 
. @ NEWLINE 


chaine @ + NEWLINE 


-Mni< 
IF THEN r DUP 4 / IP + SWAP OVER 1 SAP OVER - 
SUB SUAP 18 + ELSE 38 END ‘o’ STO + 
" @ NEWLINE 
“+ 1 FS2C IF THEN ROT SWAP CLLCD 1 DISP HALT 
ELSE o INPUT4B END DUP  @ INPUT28 
WHILE DUP " " POS DUP @ si HP-28S 
REPEAT DUP2 1 SUAP 1 - SUB 3 ROLLD 
1+ 25 SUB IF DUP " " == THEN DROP ELSE + END 
END DROP O OVER SIZE 1 SUAP 
FOR j OVER j DUP SUB NUM j * + NEXT 
s + DUP # FFFh AND 
“ @ NEWLINE 
somme de controle @ + NEWLINE 
ea @ + NEWLINE 
#6 ROLL SUAP + 34 INPUT4B STR+ == @ INPUT28 
IF THEN SAP DROP 1 @ si HP-28S 
ELSE DROP2 1000 1 BEEP 1 SF O END 
UNTIL END ’s’ STO 
WHILE DUP # ” POS DUP 
REPEAT DUP2 1 SAP 1 - SUB 3 ROLLD 1 + 19 SUB + 
END DROP ‘tmpcod’ DUP RCL ROT + SWAP STO 
NEXT f STOF » tmpcod 
@ * HP48 + @@ “eerreeenneeee Hp.DBG eenneseneenneenne 
NGROB 8 " @@ # 20204A04F3D02C67h # FB0004F02C96040Ch 
OVER SIZE @@ # 8DCCO5081F804F27h # 313103190F818341h 
2/""  @@ # 6818084€91851391h # 45DC061171085168h 
++ SUAP @@ # F3D3CEAA125E5D8Eh # 2F9004h 28 STUS 
+ STR+  @@ #0 OR 64 STWS 1 7 START # 3882h SYSEVAL 
# 4017h @G@ NEXT # 20238h SYSEVAL # 4F3Dh SYSEVAL 
SYSEVAL  @@ EVAL 


msn 














# 5686h  @@ toutes ces lignes marquées @@ peuvent 

SYSEVAL  @G@ être remplacées par ASC- : 

DROP G@ soit pour HP-48 (JPC-79 page 11) 

NEWS GG ou pour HP-28S (JPC-85 page 8) 

“fin” CLLCD 1 DISP » @ HP-28S dito 

INPUT48 412.5 octets INPUT28 228 octets 

cksum # 15C7h cksum # 9412h 

< SHAP 1 @ partie commune 

WHILE OVER CLLCD 1 DISP @ HP-48 et HP-28 

REPEAT @ puis séquence 
DO UNTIL KEY END @ HP-48 ou HP-28 


@ eneeeneennee Fp4g rerrneernnes Q@ *treee HPL2BS verre 
IF DUP 51 == THEN DROP 0 @@ 1F DUP "ENTER" == 
ELSE IF DUP 55 == THEN DROP  @@ THEN DROP 0 

1 OVER SIZE 1 - SUB @@ ELSE 
ELSE @@ IF DUP "BAC 
CASE DUP 17 < THEN 54 + END @@ THEN DROP 1 OVER 
DUP 66 < THEN 7 - END @@ SIZE 1 - SUB 
DUP 76 < THEN 20 - END @@ ELSE 
DUP 86 < THEN 33 - END @@ suite voir HP-48 
92 == THEN 48 EN @@ 
46 END CHR @@ 
+ DUP SIZE 3 PICK - 2 + 5 MOD NOT @ partie 
1 FC? AND IF THEN " "+ END END 1 @ commune 
END END SWAP 60 SUB » @ HP-48 et HP-28 
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Donc à partir de maintenant pour tout assemblage de 
chaîne de codes procédez de manière suivante : 


1- lancez le programme ASSCOD48 ou ASSCOD28 

2- donnez le nombre d’octets (1/2 octet compris) puis 
validez avec ENTER. 

3- tapez chaque ligne de codes, correspondant au 
numéro de ligne à 3 chiffres, sans les espaces et 
validez. 

4- tapez la somme de contrôle et validez. S'il y a 
erreur la ligne de codes sera demandée à nouveau 
après émission d’un 8eep. L’appui sur EDIT fera 
apparaître la ligne des codes qui pourra être corrigée. 
Alors relancez avec CoNT. 

5- après l'affichage de "fin" stockez le programme 
assemblé dans la variable donnée en tête. 

6- si tout s’est bien déroulé vous pouvez purger tmpcod 
qui contient la chaîne de codes. 


Programmes MS-DOS 


Afin d’être utilisé par tous, ce programme est destiné 
à être écrit en GwBASIc. Il devrait cependant être facile 
de le convertir pour un autre programme (@BASIC, 
Turbo BASIC...) 


Programme MAKEDOS.BAS 


20 OPEN NOMS FOR OUTPUT AS #1 : 
30 OPEN "bin.tmp" FOR OUTPUT AS #1 : : P$=! 
40 NLINES=N\16 : LENLAST=(N MOD 16)+CCN MOD 16215) 





60 FOR X=0 TO NLINES 
70 IF X=NLINES THEN PS=LEFTS(PS, LENLAST) 
80 c$=P$ 

90 X2$="O0"+HEXS(X) : PRINT RIGHTS(X28,3);": 
100 Y=CSRLIN : LOCATE Y,6 : PRINT C$ 








120 M=S 
130 FOR Z=1 TO LENCCS) 


150 NEXT Z 
160  D2S=MO0"+HEXS(M) : D2S=RIGHTS(D2$,3) 


180 FOR Z=1 TO LEN(CS) STEP 2 
190 IF MID$(CS,2,1 THEN Z=Z-1 : GOTO 230 





220 PRINT#1,CHR$((16*CH)+CL); 


230 NEXT Z 
240 S=M 
250 NEXT X 


260 CLOSE #1 : NAME "bin.tmp" AS NOMS : END 





10 INPUT "Nom du fichier : ",NOMS : INPUT "Nombre d'octets : 
CLOSE #1 : KILL NOM$ 


: LOCATE Y,6 : INPUT ",C$ : 
110  LOCATE Y,27 : PRINT " sm = ---" :; LOCATE Y,33 : INPUT " 


170 IF D2$<>D$ THEN PRINT "Erreur de somme" : BEEP : 


200 CH=ASC(MIDS(CS,2,1))-48 : IF CH>9 THEN CH=CH-7 
210 CL=ASC(MIDS(CS,Z+1,1))-48 : IF CL>9 THEN CL=CL-7 


Mode d'emploi : 


1- Lancer le programme : GHBASIC MAKEDOS.BAS 

2- Entrer le nom du fichier destination. 

3- Entrer la taille du fichier. 

4- Entrer les listes de codes puis le checksum (en 
prenant soin d'entrer les codes héxadécimaux en 
majuscules). En cas d’erreur corriger la ligne, en 
prenant soin de placer le curseur après le dernier 
caractère avant de taper sur la touche d’entrée. 

5- Une fois que toutes les lignes sont entrées, sortir 
du Gw8ASic en exécutant la commande SYSTEM. Le 
nouveau programme est immédiatement disponible. 


Note : La taille du fichier résultant peut être 
supérieure d’un octet à ce qui est affiché dans le 
listing. Cela n’est pas un problème. 








50 IF CN MOD 16)=0 THEN NLINES=NLINES-1 : LENLAST=LEN(PS) 


Y=Y-1 






140 IF MID$(CS,2,1)<>" 1 THEN M=(M+((Z-(Z\5))*ASC(MIDS(CS,Z,1)))) MOD 4096 


GOTO 90 
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TIMED28S 
# 8933h 


0123 


000: 76c2 
001: 9cD3 
002: A13C 
003: 2068 
004: 0589 
005: 8144 
006: 1913 
007: D113 
008: 0000 
009: D37F 
004: 0 


PROGDEC 
# 7C34h 


0123 


000: D9p2 
001: 1000 
002: c753 
003: 2036 
004: 950F 
005: 4303 
006: OFD5 
007: 29E2 
008: 8813 
009: 2A20 
O0A: 4CE4 
008: D9D2 
O0C: c2A2 
00D: 5668 
00E: 6FBD 
00F: 3915 
010: 2A20 
011: 4F53 
012: 3019 
013: 6304 
014: 8017 
015: 9020 
016: F067 
017: 3079 


ALLDEC 
# 7822h 


0123 


000: D9p2 
001: 0040 
002: F30F 
003: 4398 


4567 


Ocp5 
7F1A 
D511 
D9cé 
SOAC 
DAC 
22E1 
3920 
3210 
6133 


4567 


028A 
1438 
0322 
8083 
EF30 
D43D 
502A 
0204 
0120 
D000 
4586 
029E 
0D00 
3169 
8188 
0518 
F000 
9150 
1363 
50E0 
0683 
6831 
2070 
4708 


4567 


02BA 
D9D2 
EF30 
1360 


CHP28) 


80.5 octets 
89AB CDEF sm 
701F 7E34 E3A 
0823 A068 BEE 
7F61 369A  9E2 
8D9c 09F2 924 
110A BAD3 843 
1011 9233 51A 
3371 A128 188 
8990 0000 cas 
D1D1 1708 9E8 
7950 09F2 6F8 

728 

CHP48) 

190 octets 

89AB CDEF sm 
81CCc D206 E83 
FB97 608D CAD 
3044 9509 858 
6322 30CC 56€ 
03D4 303D 317 
c136 OD47 Oc0 
1707 E316  DB8 
2000 F516 A30 
4095 236C 67C 
034F 4445  2D4 
7A2C B916 167 
202D 4100 DS 
0034 F646  A47 
0826 0E51 6E8 
0410 8316 2FA 
508B FO6C 1CE 
034F 4445  E30 
5923 0821 A3C 
9150 7E31  68F 
4163 8030 340 
16A3 336D  OE2 
6BD3 70CA FB2 
4337 0821 COA 
2130 BF1 
CHP48) 

171.5 octets 
89AB CDEF sm 
8109 F81D F73 
0707 619F  D12 
03D4 303D AC6 
D470 2A17 7A4 


004: 
005: 
006: 
007: 
008: 
009: 
O0A: 
008: 
O0c: 
00D: 
O0E: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 


REV 


OC2A 
454 
Es16 
1307 
307C 
0881 
6365 
2650 
236C 
4445 
0D00 
3164 
5018 
0039 
054€ 
6F36 
1708 
3082 


# 9069h 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 


ASCX 


0123 


D9D2 
0040 
D208 
F4BF 
1308 
14F1 
D5BE 
8213 


# FC91h 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
00A: 
008: 


0123 


D9D2 
9020 
D208 
30A1 
6322 
8F14 
D814 
1179 
0818 
ocp5 
0682 
0 


20F0 
5683 
4E76 
E316 
C30E 
300F 
0c27 
3375 
2A20 
4A03 
0034 
E761 
B022 
150€ 
4443 
3915 
5230 


4567 


028A 
D90 
4000 
F213 
19F2 
4A14 
8034 


D 


4567 


0D9F 
9023 
8726 
626A 
30cc 
6608 
3130 
3193 
6861 
4E8D 
1308 


0003 
1690 
1391 
1854 
E170 
5163 
36FD 
OCAF 
F000 
9150 
F646 
3915 
9E20 
2A20 
4F44 
0821 
7947 


89A8 


8109 
0756 
8F89 
3131 
D554 
914C 
1508 


4F44 
8260 
SOCA 
6881 
D9D2 
2230 
E262 
0695 
034F 
C2A2 
5668 
0518 
2043 
3100 
454A 
305€ 
0821 


AFB 


545 
38F 
152 
E42 
844 
8A6 
543 
23A 
DA9 
815 
7F4 
420 
988 


CHP48) 
58.5 octets 


CDEF 


F81D 
60cc 
7608 
CACA 
1181 
1710 
2130 


sm 


F73 
D95 
AE6 
AOF 
688 
414 
079 
36E 


CHP48) 


88.5 octets 


89A8 


8100 
6A21 
FD55 
1626 
D202 
FB97 
1741 
1581 
5801 
3415 
2130 


CDEF 


040D 
7019 
02c2 
cict 
5000 
éocc 
4313 
9EAB 
7116 
089F 
8213 


sm 


DF7 
BA 
916 
681 
268 
172 
c82 
AD1 
665 
532 
125 
155 


MHEREIS.COM 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
O0A: 
008: 
O0c: 
00D: 
00€: 
00F: 
010: 
o11: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
O1A: 
018: 
O1c: 
01D: 
O1E: 
O1F: 
020: 
021: 
022: 
023: 
024: 
025: 
026: 
027: 
028: 
029: 
O2A: 
028: 
02c: 





0123 


4D5A 
0200 
8000 
1c00 
F99C 
0000 
5652 
C82E 
0003 
8EDB 
B908 
79EE 
00AD 
0671 
O5AA 
E921 
871) 
FAOF 
5352 
2189 
FD8E 
4732 
c7F9 
0501 
FF3C 
26c6 
75DF 
22F1 
7418 
D801 
891c 
E2EE 
495E 
58c3 
FFFD 
0600 
DE38 
FD78 
8838 
0275 
BFC7 
086C 
E606 
BA90 
FF81 


LS 
: 22E0 
: 71F4 
: 5230 
: c702 


7746 
4799 
Occé 


4567 


9800 
880F 
9089 
0000 
EB09 
55F8 
5153 
0106 
c288 
8ECO 
00F3 
8EC3 
8BE8 
0064 
2000 
0301 
F8FO 
CO2F 
STE 
1E85 
co88 
ED26 
0074 
83cé 
2275 
0500 
FD27 
263A 
88DF 
F9FF 
4646 
F8c2 
1F5F 
8501 
5351 
O2FF 
0602 
8788 
FFFF 
1E1E 
E8A1 
89a2 
9605 
E86D 
8BDA 
833E 
8103 
3860 
2074 
7TAT 
3002 
2DE8 
0691 





CMS-DOS) 
1688 octets 


89AB CDEF sm 


0400 0000 A84 
FFFF E900 A3B 
0000 0000 4E8 
6469 6574  OD8 
0000 0A00  CF2 
9C06 1E57 AC8 
500E FC8C 9C3 
4900 BA71 6C5 
D805 7800 38F 
33F6 33FF 35E 
A54B 484A 193 
8ED8 BE66 222 
B210 EA7D 1F5 
6C7A 203E F88 
1707 3F5C DOC 
0000 FEFC B95 
B883 EO0E A85 
FCFF 3F50 AD6 
5684 62CD 990 
O1A1 FEFF 9F2 
8000 8BFB  99F 
BAOF 83FF 997 
4FB2 OOBE 82B 
02F0 O5FF  69E 
0980 F2FF 5BA 
EB2B 3C20 365 
BOFA FF74 387 
4501 7F74 OE8 
4326 803F EFF 
E30D 740B E27 
FF06 1747  B99 
DB8B OEF5S  C50 
0722 5A5B AB3 
2DFB 3FDE B56 
5206 7CC7 978 
F138 FFAT 987 
0274 3775 59 
1EF2 DIE3 50€ 
823A 0604 2FA 
061F 88D7 228 
001F 890E  09C 
9D81 0702 D6E 
E3FD EB5B Eél 
0083 6754  B4A 
807F 013A 9B8 
D6EO AEC3 978 
E889 3E92 77A 
c77F 732B  6A3 
25E8 2883 480 
E7EB 1FCE  5A2 
FF22 C6FC 598 
ODBO FFEB 74C 
3F37 FCB6 680 
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035: AOF8 
036: 5BC3 
037: 3FF6 
8839 
c9E8 
: F050 
FFF9 
: 5FFA 
: 7261 
6167 
6865 
2058 
DDEE 
FF20 
: 6cé5 
: 0D0A 
6374 
é6E1 
7800 
ééc7 
242E 
732A 
: C384 
: BCOO 
: 03F0 
95FF 
FDE8 
463C 
0343 
OGEB 
: O1EB 
: 20EB 
: 1807 
056: EB08 
057: FE06 
058: FA61 
059: 8409 
O5A: E740 
058: 85E8 
05C: D980 
05D: E4FB 
05E: 1900 
05F: EEBE 
060: 0702 
061: FCCB 
062: F7E8 
063: 0900 
064: EC33 
065: A72E 
066: 6486 
067: 8B7E 
068: D8BE 
069: BF1D 








3507 
5397 
0774 
8803 
0441 
5756 
EE47 
SFc1 
2148 
6520 
7265 
2068 
72FB 
7061 
2E2E 
OA24 
7807 
313F 
CSFE 
E36F 
005C 
008c 
4ABB 
1088 
E7F5 
E7Cé 
BEFD 
6875 
77FC 
2E3C 
233C 
183C 
FFBE 
3C3F 
0D03 
3F6E 
98E8 
7403 
2AFE 
TBFF 
FFÎE 
A110 
7888 
BAO2 
B59E 
8802 
ECFF 
DBES 
c8cs 
8889 
661F 
3086 
0401 
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EFF1 
3774 
0643 
EA3B 
EBB8 
3888 
L6E8 
643A 
FFFF 
3420 
6973 
5DFB 
61FB 
7LE7 
1FE3 
FCé4 
6F72 
A2FD 
FE20 
756E 
FE2A 
CB8E 
D4DC 
0038 
A98B 
0700 
3c14 
0780 
393C 
BEDF 
61F5 
6475 
B3E8 
7504 
EBB3 
098A 
3FA1 
A3D8 
EDF8 
scce 
0788 
0333 
39E8 
048F 
2055 
5084 
c757 
AFO02 
A39A 
B946 
FF46 
CAFD 
81E8 


5A59 
0738 
EBF4 
8E33 
BFF7 
043C 
F35E 
6873 
7573 
2077 
EFBB 
73FB 


6669 
2E5D 
69cc 
798E 
6878 
8863 
6LEA 
2EFF 
DB8E 
7F60 
BA12 
07A2 
E83E 
FFF3 
0E62 
73F5 
72F5 
F15F 
0c8B 
6BFE 
7FF0 
803E 
6503 
DEDB 
FCAS 
98c3 
cés0 
FAEB 
D25C 
F577 
B44C 
1FFE 
4888 
0688 
2EA1 
2EAB 
0008 
048E 
0E07 
écDF 


5A9 
226 
oc 
033 
0E2 
E39 
E9E 
CA 
884 
752 
703 
776 
687 
302 
390 
316 
23C 
121 
FC3 
F7F 
082 
144 
190 
E93 
D54 
con 
pic 
9Eé 
89c 
8EF 
806 
67A 
707 
670 
518 
2FB 
46 
309 
485 
3F8 
500 
1F3 
196 
080 
O7C 
FOE 
E2D 
D7c 
D56 
AFE 
A22 
DA 


06A: 6DD6 
06B: F25E 
2E5E 
E846 
813D 
7002 
070: B4&LE 
071: 8472 
072: E33F 
7516 
152€ 
F9IE 
84C3 
2AE6 

: ONE 

: AFFO 
O7A: 0188 
078: EEO1 
cB00 
BD74 
07E: 2E39 
07F: O7FE 
080: 1F26 
081: F053 
082: A056 
083: 2384 
084: C0E6é 
085: E74A 
086: c78F 
087: F758 
088: 5D59 
089: OEFE 
O8A: 6A6A 
088: 2068 
O8C: 48ED 
08D: 4449 
O08E: 3E3F 
O08F: BF76 
090: 0D00 
091: 79E6 
092: 3876 
093: 1548 
094: CBA1 
095: 3F1F 
096: 8854 
097: F7E8 
098: 8BFD 
099: 1F00 
O9A: 3983 
098: DF01 
O9C: E867 
09D: C40E 
09E: DFES 











2F3F 
1816 
6671 
37CE 
cicF 
2AE9 
88Dé 
É6ABA 
TEE 
1F7E 
0608 
002€ 
7438 
6677 
S0F0 
37CE 
3166 
1F33 
B44F 
1387 
B2E9 
18DA 
8476 
8912 
2462 
B85D 
5260 
CéFE 
7A58 
9D4C 
9260 
2EFB 
2F6D 
683A 
4161 
523€ 
558 
06F3 
FCA4 
2620 
008F 
4F0E 
061E 
EB15 
1c88 
D341 
5490 
8105 
E30F 
930€ 
E604 
1F58 
3F81 


2208 
A42D 
BFD8 
8963 
9075 
TSFE 
FDFF 
1E15 
2EA0 
F6C3 
7448 
7441 
2E07 
EE75 
6B0E 
60FF 
FFBA 
F6AF 
c194 
1D5E 
15FF 
4TE2 
6010 
7744 
2AC7 
CEBO 
F8E2 
E892 
5807 
0169 
2101 
F3FF 
6D2F 
4c87 
B98F 
F9AA 
F903 
FFBA 
4980 
1FF9 
8206 
B908 
DBF3 
E58B 
CC9E 
399F 
F9E7 
D3EA 
9328 
CD47 
E6c2 
EF54 
06E8 


BF20 
C7DF 
F639 
DA26 
OD2A 
ECO1 
8916 
0080 
F374 
1074 
FC3F 
EB04 
EF18 
295E 
1FBE 
F8CC 
43E8 
38E8 
4BEE 
F983 
BCO3 
FC88 
D6BA 
5537 
0E6A 
CE1D 
E878 
FE88 
8449 
995A 
90F4 
7F20 
6161 
F720 
633C 
1A9C 
5649 
1E89 
COF9 
8BFF 
BA44 
TDFE 
AGFB 
441A 
E941 
5EBF 
c225 
28AE 
TEE 
7FC3 
0550 
1607 
0EDD 


648 


F91 


45A 


075 
086 


09F: 3DDA 4100 8A66 


0A0: c705 
OA1: 2EA8 
OA2: F904 
BOF8 
D303 
OAS: EB44 
OA6: 9DC3 
OA7: EO2E 
0A8: c311 
0A9: 03F1 
3 06F9 
073c 
OAC: 198D 
OAD: 1150 
OAE: F259 
OAF: 5250 
OBO: BFE7 

: F189 

: FB37 

: 837E 
FADB 
204E 
8503 
7505 
E8F1 
7214 
 FATE. 
D0E6 
8104 

: 10E2 

: FEC6 

: C6BA 
Oc0: 7210 
OC1: FFDO 
Oc2: EBE7 
Oc3: EB0D 
OC4: D7E2 
8A01 
7303 
OC7: ACB7 
OC8: 72FF 
OC9: 5D0E 
BEO7 
0305 
Occ: 06D1 
OcD: 012F 
OCE: 012€ 
OCF: 5E5F 
0D0: 81C5 
0D1: 00FB 
OD2: FOFF 

















4607 
4603 
9848 
0252 
41BA 
0050 
D40A 
8905 
1806 
E849 
3384 
7C9E 
B41A 
51E8 
F43C 
7ESE 
7F52 
6897 
c230 
668F 
88cB 
E2FA 
OOFF 
AD88 
FFDO 
B602 
09E8 
E2F2 
FEC6 
F7E8 
E8BF 
CEEB 
8103 
DéE2 
ACBA 
8103 
F9FE 
AAE2 
AGEB 
FF8A 
726 
1F89 
00AD 
8Ec0 
EOD1 
E2E7 
E606 
1F07 
FOFF 
33ED 
SDEA 


4590 
éc48 
53F0 
A820 
ED53 
4OFE 
0530 
3D90 
ASFD 
FBSE 
2FB2 
E4E 
F01F 
16FB 
7309 
DD03 
0228 
F948 
8814 
F8E1 
cé63F 
585A 
D1ED 
E882 
D7E8 
8103 
DEFF 
2AFE 
E8CD 
C6FF 
FF73 
2AE8 
B600 
F980 
c883 
E895 
cFB1 
FAE8 
F8E8 
D872 
3AFB 
0000 
08c0 
AD8B 
F803 
012€ 
5858 
9073 
8ED5 
SSEA 
0000 


E795 
67E2 
AB8C 
EFAB 
F89E 
6F86 
3F58 
3086 
FD03 
E3FB 
DEC3 
8cco 
4E22 
39FE 
8440 
1655 
F340 
D2F7 
F88B 
LEGB 
FA02 
1404 
725F 
FECA 
10c3 
ECFF 
E8E3 
D0D7 
B602 
FF72 
730D 
O2FE 
B4FF 
E8AB 
cé09 
c111 
FFDO 
0226 
84FF 
7CFF 
81E8 
7500 
E31C 
7809 
D8E8 
D826 
E006 
595A 
13FA 
BCO0 
0001 
0000 


EC1 
D1F 
BE3 
855 
SEC 
BEC 
7A8 


215 
2F8 
3E5 


104 
1E8 
FD9 
E4C 
c90 
B5F 
ACA 
882 
808 
738 
653 
848 
écA 
939 
721 


738 
829 
802 
8A3 
A6D 


760 
543 
54€ 
410 
510 
682 
607 
683 
47D 
24C 
3AA 


F4C 
D88 
C7D 
c32 
982 
S8E 
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